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SOQ  USER  GUIDE  UPDATES 
June  1980  Updates  to  SOQ80128 

INTRODUCTION 

This  document  defines  the  changes  made  to  the  SOQ  code  (SOQ80128) 
between  January  and  June  of  1980.  The  changes  either  correct  short¬ 
comings  found  in  the  code  or,  more  usually,  document  the  increased 
capability  being  continually  built  into  the  code.  The  SOQ  code  i;, 
maintained  as  SOQ80128  June  PL, ID  —  ARI.0JRA  as  a  NOS/BE— 1  CDC  update 
format  file. 

UPDATES 

1 .  *ID  FIXZRN 

This  update  redefines  the  coeffiencets  to  be  input  to  the  Zernike 
subroutine.  This  new  convention  is  more  physically  meaningful  in  that, 
at  least  for  lower  orders,  the  coefficients  are  in  waves.  For  example, 
to  impose  one  wave  peak  to  peak  of  defocus  on  a  beam,  one  would 

input  P(A)=1.  The  phase  applied  is  now: 

(Kl.J)  =  |Pj^TtZj^(I,J) 

The  subroutine  affected  is  ZERN.  This  update  does  not  effect  the  rest 
of  the  code. 

2.  *ID  FIXJTR 

This  update  ensures  a  correct  definition  of  DF  in  subroutine  JITRBG 
since  when  JITRBG  is  called  from  subroutine  QUAL,  the  X-coordinate 
array  contains  RX/D  coordinates,  not  the  spatial  coordinates. 

Only  one  line  of  the  code  is  affected  by  this  update. 

3.  *ID  ROTZRN 

Due  to  different  coordinate  system  orientations  for  data,  it  became 
necessary  to  allow  for  this  variation  within  subroutine  ZERN. 

Define  the  data  x  and  y  coordinates  to  be  XROT  and  YROT ,  and  the  SOQ 
X  and  y  coordinates  to  be  XIN  and  YIN.  The  rotation  angle  is  then 
defined  to  be  6  (in  radians). 
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COSROT  =  cos(e) 

SINROT  =  SIN(e) 

XROT  =  XIN  X  COSROT  +  YIN  x  SINROT 
YROT  =  -XIN  X  SINROT  +  YIN  x  COSROT 

Application  of  Zernike  polynomials  to  and  SOQ  point  located  at 
(XIN,  YIN)  would  then  be  calculated  using  Z(XROT,  YROT).  The  possi¬ 
bility  of  axis  flips  are  also  accounted  for  and  are  flagged  by 
FLIPX  or  FLIPY  not  equal  to  zero.  Namelist  ZERNS  is  modified  to 
include  FLIPX,  FLIPY  and  the  rotation  angle  (in  degrees)  ZTHETA.  No 
common  was  modified.  This  update  modified  only  subroutines  GDL  and 
ZERN. 
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This  report  describes  the  System  Optical  Quality  (SOQ)  code  structure  and  the 
input  to  the  code  required  for  analyzing  High  Power  Laser  Optical  Systems.  The 
SOQ  code  provides  the  designer  with  a  physical  optics  model  of  the  system.  The 
code  traces  the  beam  from  its  point  of  origin  in  the  resonator  throuqh  the 
optical  train  into  the  far  field.  This  report  is  divided  into  three  parts. 

Part  1  describes  the  general  structure  of  the  SOQ  code  and  establishes  a 
correlation  between  the  usual  optical  elements  encountered  in  the  optical 


.  ,r> 


■> 


DO , 1473 


UNCLASSIFIED 


SECURITY  CLASSIFICATION  OF  THIS  RAGE  rHSran  Omim  EnrarM) 


i 


UNCLASSIFIED  _ 


20.  ABSTRACT  (Continued). 

■•train/gas  dynamic  laser  resonator  and  the  appropriate  SOQ  models.  Part  2 
acquaints  the  user  with  the  individual  SOQ  subroutines  and  their  analytical 
formulations  as  manifested  in  Fortran  within  the  SOQ  framework.  It  also 
delineates  the  input  required  to  exercise  the  subroutines,  familiarizes  the 
user  with  the  operation  of  the  SOQ  model,  and  contains  working  input  modules 
which  carry  the  user  through  the  usual  calculations  of  the  SOQ  code  from  input 
generation  to  loaded  cavity  calculations.  Part  3  contains  Appendices  describing 
SOQ  updates. 


Accession  For 

NTIS  GRUI 
DTIC  TAB 
Unannounced 
Juatir .catlon- 


Hy  --  _  - - - 

Distribut ion/ 

Availability  Codes 
Aviiil  and/or 
Dist  b'poolal 

h3j 


UNCLASSIFIED 


SCCUXITY  CCAMiriCATtOH  or  this  ^AOer»*«i  omm  Cn(«n«; 


SECTION  III 
MAIN  EXECUTIVE  CODE 


1.  PROGRAM  son 

a.  Purpose  —  Program  SOQ  is  the  main  driver  program  or  executive  code 
for  the  total  SOQ  code.  Many  parameters  such  as  mesh  size,  number  of  points, 
initial  position  of  the  optical  axis,  the  initial  coordinate  array,  and  the 
initial  field  itself  are  established  in  this  routine.  Once  the  above  param¬ 
eters  have  been  initialized,  there  are  several  options  available  for  opera¬ 
tions  on  the  field.  Those  available  are: 

(1)  Calling  subroutine  GDL,  the  executive  program  for 
propagating  the  field  through  the  optical  elements 

(2)  Performing  a  quality  calculation 

(3)  Gradient  search  optimization 

(4)  Parametric  studies. 

The  above  options  can  be  activated  in  any  order  and  as  many  times 
as  desired  by  successive  reads  of  namelist  START.  The  flag  for  ending 
execution  of  the  entire  deck  is  to  set  WWL  =  0  in  the  last  read  of 
START. 


b.  Formalism  --  The  only  major  explicit  calculations  done  in  SOQ  are 
those  which  determine  the  initial  field  when  it  is  not  to  be  read  in.  The 
OPTIONS  are: 

(Ij  Plane  wave  -  constant  amplitude 

(2]  Plane  wave  -  Gaussian  amplitude 

(3)  Spherical  wave  -  constant  amplitude 
(4j  Spherical  wave  -  Gaussian  amplitude. 

Letting  E(x,y)  represent  the  field,  A(x,y)  the  field  amplitude,  and 
())  (x,yj  the  field  phase,  then  the  field  is  determined  by: 
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where 


and 


E(x,y)  =  A(x,y) 


A(x,y) 


♦(x.y) 


const . 
const. 


The  other  calculations  based  on  input  distributions  are  performed  in 
subroutines . 

c.  Fortran  —  The  only  common  variables  that  are  not  altered  in  this 
routine  are  SPACE  and  CFIL.  The  others  are  altered  and  are  defined  as 
fol lows : 


ru  =  the  complex  field  array 
X  =  the  coordinate  array 
DRX  =  the  X  position  of  the  optical  axis 
DRY  =  the  y  position  of  the  optical  axis 
NPTS  =  the  number  of  points  in  the  x  direction 
NPY  =  the  number  of  points  in  the  y  direction 
=  NPTS  if  SYMTRC  is  false 
=  NPTS/ 2  if  SYMTRC  is  true 
WL  =  the  wavelength  of  the  radiation 
PLTSG  =  plotting  parameter  (none,  amplitude,  or  intensity) 
INT  =  set  to  0 


The  relevant  parameters  are  read  into  the  program  by  means  of  the 
namelists  described  below. 

(1)  Namelist  START  —  This  namelist  is  used  to  initialize  para¬ 
meters  such  as  field,  mesh,  and  coordinates,  and  is  used  to  direct  the  cal¬ 
culation  to  other  sections  of  SOQ.  It  is  read  repeatedly  until  (VWL  ^  0  is 
encountered. 
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(2)  Namelist  QLOT  —  This  namelist  establishes  the  parameters  nec¬ 
essary  to  perform  quality  calculations. 


NA'*FLTST/NLOr/'  TiTLE’  iNLlf  Ok*  IbAV.  IPkASF*  PkG  •kF 

C 

C  title  FOW  plots  in  'IuAcITt  kOuTINE 

C  I'JLT  is  “cOTTlNr.  JABAHFItk  FQw  kL  T  0  T  .  .  .  .  JUAL  I  T  Y  ktOTb 

c  3  n  ISO-I'iTfnsity  ano  kj^Ek  Vb  wL/i  oOHL,''  kLoTS 

c  3  J  FAk-FIEi..^  kv»k  vS  KL/0  -lOOLO.. . 

c  3  J  NO  GOIIL"'  ktotb  CALLOLAlEa  ko*4-  itST,  Oily 

C  »  1  ISii-INTFiMbl  TY  jOULO*  PkH  OiST,  kiiT  .i0  Pwh  Jl/o  PloTS 

c  a  »  LALC  PonLW  INSIDF  k  i«  ONLY,.,. NO  CAil  TO  kLTuT 

r  Ok  s  HFrtM  ■•lAkETf..^ 

(•  ISav  lb  saving  PAkAMt  tfck . 

C  3lTt  iiONST  S.TVf  »1  bAYt  INkllT  FIFiO 

C  s-l  USt  OAT  A  SET  3k  F.Jk  INF'IJT 


Ik»M4SP  roNToul.S  ThP  Phase  CowotCTIONa  aPPlTF''  to  The  ftelo 
a  Ii  NOME 

a  !  PL4N4P  coppecrio.% 
ri.41. 


-  ^  SPHfc  We 

a  i  h  0  T  H 

■VHQ  rs  -H(.  Pjw  t'pf  r  lUN.  .  .  !«■  4  call  Uj  wWAL 

^^)^,^  HfKowe  OPT'i'^u*'  iHt  HUCi^Ef  iS  SPEriFlEP  HfPt 
!«:  Pu/!'  pact  IS  F'jp  .jiiALlf'c  C4li.'m  aTifiN 


IS 


(30  Namelist  THRED  —  THRED  establishes  the  parameters  required 
for  three-dimensional  plotting  routines. 


'lAPPLtsr  /  r-iUK''  /  PL.iT  JO.  !  IT..-  4.^« 

*  p.  flSii.  -Pi  jr.  ilAfbw.  PScICE.  .'iP.  JFA/! 


4  ■440 


PL'’  f  ’■ 


t  ;ti  - 
DI  .^M 


)  a 


- -JH  r—Prh  i)  I  mL'jS  I  U-.AL 

«  r“o«  *«0  P'wP^S 
T  !  TLc  I  ■mF r  [  IN  r  U"  T  -.wt.' 
;.,I4P  -'.C  Ilh'S'pAT^i;  FltLu  Ofi 


PL'i^S  If- 


-JLOT-j 


NrAP  rrii 
4u  PL'’fS 


PLTTSO  TS  L  MilCAL  FOP  ISoPLpTS  uF  FJtLT 

wpl'M  IP  Ine  wilin')  ijF  CIPCL^  iiwAwivi  r-N  ISOP'.OT  ^op  pftj  p£ncF 
l’IAf-,0  I'i  f.I.»«tTFW  uE  Ii-»PLUfb  IjtSIPHO 

pSlIC^  is  l’oICal  F')w  SlICF  plots  of  VILLI’ 

OP  S  THfc-  OLIC^  In  ''-1‘IP.  PLOrTTliO.  IT  a  .1,,,  f'p  a  nPTS/? 
)F4/r  a  ■>  .  ‘JO  UH4Sfc  Pl.O  *  F '  >P  T-IS 
a  1.  '-t  *  '•<?■  PH4St 


'  ^  O  O-  V  w  • 


r  O  V  aF  >><»>#  O  '>  V  ^  O  •»•<>  V  \F  ^  a  ^ 


(4)  Namelist  OPTIM  -  Namelist  0PT2  --  These  two  namelists  are  used 
by  the  optimization  portion  of  the  SOQ  routine.  OPTIM  must  oe  read  first  to 
direct  the  optimization  procedure.  OPT2  establishes  which  parameters  are  to 
be  used  in  the  procedure  and  their  constraints. 


SAHfLTST/  opt;*'  /  PM,  ;P'JT,  OINO.  Solr.IT,  oau 
L  PH  3  ■>OC<F  T  Si/F  Fijm  'wvjALITc  JP  T  J  <4  I  7  a  F  I  (’N 

C  IM'IT  3  i  po.wpp  wITmIN  PH 

C  p  total  powtp  In  hfam 

C  J  OF  AM  IN  TENS  I Tr 

C  NK'n  IS  NOMHFP  of  III!)  vAIARlES  to  hf  OPTIMI7FO 

c  NP’OTT  a  anjOtsT  l-uHHfcH  OF  I1E«ATIOmS  TO  Mt  PtPFOPMFO 

C  OPP  TS  TpF  HFAp  (iIAMETfp  fow  jjALITr  f:4t.C...rF  CALLFO  Tj  wiiAL 

C  FtPLiEP  This  is  '•pT  NEtUEU 


NAMfeLIST/OUTcV  Ttll.  !ELi«  ItuJt  AMlN.  *«AXf  XAOO 
C  (  lELl  .  IKLP.  IfcLJ)  IS  TMt  vECTOH  oESC'^lHINf,  TmF  hoSITION  OF  ThF 

C  nwTiMl/Fn  PAWAM£Ttw..,IN  OPEhIA  T  lOx*AL  SPACE 

c  xmin  4N()  Xmax  ape  The  CONsTpaInTS  UN  The  OPTIMAZED  vpcTOp 

C  XAtni  IS  A  constant  AurEO  TO  TrtE  UPTIma/EH  VAPTAHLE  SuCn  that 

C  ITS  VAL.'E  is  NEVE>  tQUUAL  ro  ZEWU 

c  thfme  ahf  mnu  numhep  uF  Calls  to  t>-.is  nam^lIsT 

c 


(5)  Namelist  PAR^M  —  This  namelist  gives  the  parameters  to  be 
varied  and  what  values  are  to  be  used. 


iAMELI'i''  /  k'APAM  /  NlLI  ••'IElP^nLL  J*  NPAPA.  XNPttMA. 

X  Mt..;  ■lOAkA.  XMPAPA 

C  iKLl  •!  LP.EL.Jl  IS  TmE  VtCTjW  Ut  SC  IP  I  li  IM-  Tnf  pn^lTIUN  OF  TPt 

L  VAPUPLE  wmICh  is  To  he  VAPIti) 

C  \PAOA.--*PAUA  APE  TpF  Nt  NbEP  of  CbANUFS  I^4  EACH  VAWIAHLE 

C  XNP.'iK  A  .  X-PAPA  APF  TutC  APHAYs  TbAT  CCNTATN  ThF  VALUES  P'MCn 

C  AHf  TO  '.iSFi. 

C  ni,(L  T  ''f-c  3r  T  IS  ’u  r*t  VAkItU  L'S»  ONLY  THE  NPAhA  SET, 

C  AN(i  Sfc  T  *'EL  1  *  0*  Tit-  MCS  APF  Tt>E  I  NNf  W  LOOP  »••*>»»*•**»• 

r  ipC  AwUAT  IS  '■O  Hf  C^AnGFU  ANU  Ni)  CALi-»  at  IhIS  'ImE  to 

L  AL'T,j  ;  (!ii;L  1  t  «  ^HtN  Sr  T  nPa»  AsO  ,  ,  .  Tmc  N  T«0  VAL'ItS  CAN  CNA'jOCO 

C  IE  0''L>'  0^t  Is  To  p>t  C'^A.^TEEu  Sc  T  Htl  1=0 

(_•  AojoAALl.  CALLS  ->ET„pt;N,  (,OL  ANi)  PAPAM  lU  UI)AL«PLJT,,.«IlL  PP  -'EJEATEO 
C  INSI'>E  Twt  PAWAHEThIC  loop 

(d)  Program  SOQ  (Program  SOQ  Flow  Chart  (Fig.  12)  appears  on  page  40.) 


PROGRAM  SOQ 


76/176  0PT=1  FIN  4.6+452  04/27/79  12.23.47 


PHU«jHAM  SUu( OUTPUT , r AHEl • I APt^f lAPtJ, I APtA, TAPESt 
A  rAPte«UUtPUT,  I  APt /•  I  APte*  l  ape*#*  l  APtiU*  l  ape  l  I  t  I  APH^  ,  I  APti  j* 

e  TAPEi*,  Tape  ts,  TAPbie,  r apc  w  t  TAPtie,  i  APti<#>  rAPt4u<  i  APE4i  i 

CTAPE^^i TAPb^J, TAPt^Af  TAPE^B* IaPE^O, I APE2/«TAPEZH, rAPE^9, 

OTAPEJU, TAPEJI) 

LEVEL  E«LU, CUM, SPACE 
COMMON  /rST/  SPACE (IUUU> 

CUMMUN/MELI/CU( ibje«) ,CE ILI fX« l^tti ,«L»NPTS,NPT,UMXfUMT 
COMMON  /PL  I  Sid/  PLOT  SO 

Common  /inUl/  INI 

OlMCNSION  r 1 ILt (ifU) «AS(3I ,aOP(A> ,ALOk(*>  *AUP(A) t 
AlOP<  J*A>  *ASCH<A>  tAHC(U»40«<*t  *(  !TLE4(4U>  tAUPAOOtA)  * 

2  AMPAHAdUl,  XNPANAdgi,  MAlNE(2blt  IITLESI2U>«  CUMIJ2TM) 
complex  CUtCMLfCUHS 

LOo 1 c AL  Mbs  r  H  r ,PLO  r  JO , PL  r 1 so • psl i ce  »  c alul  >  s ym  thc 
EuuIvalence  (Cod)  ,con(1)  I 

OAF  A  «MLtOCALtNNPrs<OOMA,OUHY/-l .,g.,tf,u.,u./ 

UAlA  OCALtHESTMl , IN, 1U,NCALL • aMPueS, I iNUMtSYMfMC tOOAUSS, PHIMAU 
X  /  0.0,  .ImUE,,  U,  a,  2,  1,0,  >1,  .EALSE.,  U.O  ,  0.0  / 

OaIA  IITLCS/20*aM  / 

0A1A  lULT.Ue, ISAV,lPMAbE,P»H,MF  /0,U.0,O, J, 1 .0,a,O/ 

DATA  TITLE/ZU+AM  / 

OATA  MH, 1P0( ,NlNU,Ndim t ,UHa  /2.0, 1 ,0, 1 ,0,0/ 

UAIA  PLOt jU,UlAM,PLriSU,MPLUf ,0(A1SU,PSL1CE,NP,UFA2E,XMaW 

X  /.False, ,0.0,  .false, ,u,u,  o.o,  . false. ,o,  u.i.o/ 

OATA  PLOIS  /  0.  / 

OATA  TITLEJ/ZO+aM  / 


COMHl 

1 

MAIN 

J 

MAIN 

A 

suuTfcri 

1 

SOW/TCYl 

2 

C0MM2 

1 

L0MH2 

2 

MAiN 

r 

LMOPl 

1 

MAIN 

a 

MAIN 

9 

CIOASTW 

1 

MAIN 

11 

MAIN 

12 

MAIN 

IJ 

MAIN 

lA 

C0MH2 

3 

MAIN 

IS 

MAIN 

16 

MAIN 

ir 

MAIN 

la 

MAIN 

19 

MAIN 

20 

main 

21 

MAIN 

22 

LMOPl 

2 

MAIN 

23 

31 


EXECUTIVE  ROUTINE  STRUCTURE 


MAIN  ai43 


MAIN  0.172  ♦ 


MAIN  0.226  -<»• 


MAIN  0.233  ♦ 


MAIN  a245-»‘ 


MAIN  a275-^ 


Figure  12.  Program  SOQ  flow  chart 


MAIN  0.170 


MAIN  0.224 


MAIN  0.231 


MAIN  0.243 


MAIN  0.273 


MAIN  0.298 


ooonn  no  oooonooonnnooonoooonoo  ooooooooooo  ooriorooooonooooooonnooonno 


C******«******«*****««***«*******«**«*******««**«****«**«*******««**«»C  MAIN 

'^AM€Libr  /bFANT/  ««LtOCALiMii»'riitUUMA«(>OHr«H£!iTHr>lN>lU>N£AL.L>  CUHMi 

A  AMPUeSt  iriHUM.  ^TMTHC  tUbAUSit  •  tlTLbSt  PHiHAU  MAIN 

A  t  t»UOrs  UMUPt 

^cursa*!.*  AM*'«.:rUUfc  t  **HASc  aClCE  UHUHl 

t'UOISa  3.«  t*0  SLICE  OH  ISU^lNltN^UT  hLuTS  WMUHl 

»LUTSa  l.t  INTbNSirTt  PHASE  SLlCA  PLOTS  LHUPl 

PLOrSal.,  INIENSXTYt  PHASE  SLICE  PLOTS  UT(IPLIS)  LHUPl 

'YCALL  COnTHULS  Trtt  HOVEMEitl  iHSiOE  h*1n  MAIN 

a  OOL  SECTIUNtCALLS  OUL  ANU  HCAU  CUrA  FHUM  OiSK  MAIN 

a  3  CALL  TO  OUALXTY  ALUOmT THUN*  HEAUS  OLOT  MAIN 

a  a  CALL  TO  ANT  OF  THE  (jOULU  PLOT  I  lN«a  PACKAGES*  HEAOS  (HHEU  MAiN 

a  S  STAHTS  OPT 1M«EA T tUH  aLA  OAtflUN*  HEADS  OPTIM  MAIN 

a  A  PAMAMETHIC  STUOXES* • INVUCVES  CHANGING  AGC  AHHAT  FUH  GUL*  MAIN 

HEADS  PAHAH  MAXN 

aL  XS  HADlAtiON  PAWELENGhT  MAXN 

OCaL  XS  INTXAL  SXAE  Of  CALCULATXON  HEGXON  MAXN 

NPTS  XS  NUMWEH  UF  FIELD  PUlNIS  ACHUSS  DCAL  MAIN 

UHA«UHY  a  The  (AtT)  POSXTluN  OF  InE  CENTEH  OF  CU  HELATIvE  MAXN 

TO  the  UPIICAL  AAlS  MAXN 

HESThT  is  CONTHUL  FOH  HESTAHIXNG  altH  EAXSTInG  GAXN  LD-EFF  ANU  MAIN 

Initial  field  Fhom  phevious  hun.*........  main 

.TRUE.  IF  HESIAHTING*  uH  IF  F ItLD  IS  TU  SE  HEAD  FHOM  IS  MAXN 

.false,  if  not.  oh  if  initial  field  and  ACS  AHE  tO  SE  CALC  MAIN 

IN  a  UNI  I  NOHSEH  OF  DATA  Se.  T  FOH  UUL  ANU  CAVITY  MAIN 

IF  IN  a  0.  Then  ThEHE  IS  NO  CACL  (O  GDL  MAIN 

MAIN 

Is  is  ON  11  NuMseH  oF  input  field  to  DDL  MAIN 

IF  IM  a  0,  Then  NOImINu  IS  HEAD  MAIN 


3 

3 

« 

5 

6 
7 

i1 

itt 

^9 

30 

31 
33 
33 
3A 
3S 
3* 
37 
3G 
39 
AO 
AX 
A2 
A3 
AA 
AS 
AA 
AT 

as 


A.'TPGES  IS  INITIAL  amplitude  OF  SlAHllNG  SEAHiPtAK  AMPLITUDE  MAIN 

FOh  GAUSSIAN)  kiaIN 

PHlHAD  IS  IS  PHASE  FHUNT  HAUiuS  OF  LOHvAIOHt  (aW.D  FOH  PLANE)  MAIN 

ITnuH  is  The  MeHATION  NUHOEH...1F  ONSPttXF  IbO  IT  HEADS  OFF  DISK  MAIN 

MAIN 

SrHTHC  IS  LOGICAL  FOH  SYMMETHIC  ANAYLSYS  UH  NUT  MAIN 

UOAUSS  IS  DlAMETEH  AT  aHiCH  OAOSSIAN  AMPLITUDE  a  l.v/E  MAIN 


MAIN 
'C  MAIN 


MAIN 

MAIN 

NAMELIST/ULOT/  title*  lOLl*  OG*  iSAv*  IPHASE*  HDD  (MF  MAIN 

MAIN 

title  FOH  PLOTS  IN  UUALITY  HUOTINE  MAIN 

lOLT  IS  plotting  PAHAMETEH  FOH  PL  TOT . . . .OOALl T Y  PLOTS  MAIN 

a  0  ISO-INTenSITY  ANU  POaEH  VS  HL/0  GOOLO  PLOTS  MAIN 

a  1  FAH'F'IElO  PpH  vs  HL/0  GOULD. .  MAIN 

a  2  NO  SUULD  PLOTS  CALCULATES  POHEH  DIST.  DNLY  MAIN 

a  3  lSO«iNTENSITY  GOULD*  PaH  DIST*  GOT  NO  PaH  HL/D  PLOTS  MAIN 

a  A  CALC  PCiaEH  INSIDE  mGG  ONLY.,;nd  CALL  TO  PLTOT  MAIN 

OG  a  gEAM  UlAMtTEK  MAIN 

ISaV  IS  SAVING  PARAMETEH .  MAIN 

ao*  UONCT  SAVE  al  SAVE  INPUT  FIELD  MAIN 

>•1  USE  DATA  SET  a9  FUN  INPUT  MAXN 

IPHASE  CDNTHDLS  The  PHASE  LOMMECTXUNS  applied  TO  the  field  MAIN 

a  0  TFUFtE  main 

a  X  PLANAH  connection  MAIN 

a  2  SPMEHEXCAL  main 

a  3  goth  main 

HGG  IS  THE  GUCKET  SIZE  FOH  DPriM«2ATlDN... IF  A  CALL  TO  DUAL  XS  NA|N 
DONE  SEFOHE  UPTIHUM  The  GUCKET  XS  SPECIFIED  HEHE  MAIN 

HF  IS  HL/0  HADXUS  fun  OUALXTY  CALCULATION  MAIN 

MAIN 


HAMELXST/  opt  IN  /  HG*  IPUT*  NINU*  NgXGXT*  DGG 
RB  a  GUCKET  SIZE  FUR  OUALITT  OPTlNIZATIUN 
IPUT  a  I  POaER  alTHlN  HG 

2  TOTAL  PUMEH  IN  GEAM 

3  PEAK  intensity 

ViNU  IS  NUMGEH  OP  INU  VaIAGLES  TO  G£  OPTIMIZED 


C  MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
MAIN 
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SG 
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as 
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SG 
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I^UISH  •  dl(i6bST  NUHHbH  iif  irtHAflUNS  TO  HE  PEAfUKMEU 

OM  la  rue  otAn  uuMerbx  )-ui«  uoacity  calc*. .if  calleu  ru  imal 

bArtLIEM  THlii  Nur  NbEDbU 

NAMELlSr/OPr^/  IbLI.  IbL^.  IbLJ.  AHlN.  XMAA.  XAUO 

(IELl.lEL^.lbL3>  IS  rnt  vbCrOH  uESCHIblNU  The  »<0S1I1UN  UF  TmE 
UMriMUbU  FAHAnbtE«1...1N  OKErtAriUNAL  SFACE 

XMIN  and  XMAX  AME  r^b  COMblHAlNt^'UiY  THE  OPTlHA^EO  VCCTUH 
XAUU  IS  A  constant  AOUEu  TO  THE  OHT IMA^EO  VAMlAHLb  SUCH  THAT 
ITS  VALUE  IS  NEVbH  bUUuAL  TO  itno 
Theme  AME  NINO  nuMHEM  UF  calls  to  This  namelist 


c 


namelist  /  MAMAM  /  NELI.hEL^.NELJ.  nMaMA.  XNMAHA. 
a  HbLi.MEL^.MELJ.  NMAHA.  XMMAHA 

(ELltbL^.ELJ)  IS  the  VbCiUH  UbSClMlalNto  THE  MOSITION  OF  THE 
VANlAbLE  MHICH  IS  TO  dE  VAMlbU 
I^AMA.HPAHA  AME  tHb  NUMdEM  OF  CHANUES  IN  bACH  VAMlABLE 
XNMAMAtXHMAMA  AME  THEE  AMMATS  iHAt  CONTAIN  THE  VALUES  aHlCH 
AMb  TO  dE  used 

••••••••JF  ONLT  ONE  SET  IS  To  oE  VAMlEO  USE  ONLV  The  nFAMA  SET. 

ANO  SET  HElI  «  U.  The  nCS  AME  The  INNEM  LOOM  •••••••••••• 

IF  AaC  AMMAT  IS  TO  dE  ChaNOEU  ANU  no  Call.  AT  THIS  IlHE  10 
AUTUT (OOLI ) .  Then  SET  nmAMAao. . . Then  TmU  VALUES  CAN  dE  CHANOEU 
IF  ONLY  ONE  IS  TO  dE  ChaNUEO  SEi  HELlaU 

•••••ALL  CALLS  dEl«bEN  OOL  ANO  MAMAM  TO  UUAL.MLO T . . .A ILL  db  MbMEATEU 
iNSIOb  the  pamameImic  loom 

•  •••••••••••••••••••••«««««**«*««A*****«********»***«««««*««A*A**««**C 


namelist  /  THMEO  /  PLUrjO.I ITLEJ.OIAM. 

X  MLTISO.  MPLOT.  OIAISO.  MSLICE.  NM.  JFA4b.  XMA6 


PLOTSO  a  .TMUE.  FOM  THMeE  UIMENSIONAL  PLOTS  OF  NEAM  FIELD 

a  .False,  fuh  no  plots 

TITLES  a  TITLE  INfOMMAftON  FOM  ThmEE  DIMENSIONAL  PLOTS 
OlAM  a  OlAM  OF  ILLUSTmAIEO  FIELD  ON  PLOTS 

PlTISO  Is  LOtilCAL  FOM  ISUPLOiS  OF  FIELD 

MPLOT  IS  The  KAOIUS  of  CIMCLE  OMAMN  UN  ISOPLOT  FOM  MEFEMENCE 
OIAISO  IS  OIANETeM  of  ISOPLUTS  OESlMbO 
PSLICE  is  LOUlCAL  FOM  SLICE  PLOTS  UF  FIELO 

nP  a  The  slice  In  T-OIM.  pLOTTTEO.  IF  a  o...  nP  a  NPTS/d 
JFAiE  a  0.  NO  phase  PLOT  FOM  THIS 
a  It  SET  The  PHASE 


•••••••••••••••••a«aA«*«*a*a**aaa«*«aa»**aa»aaa«a**aaAaa**aaa*.a«c 

CALL  Listaoisi 

INTau 
ICNVMUaO 
aLa-l. 

DMA  a  0, 

OHY  a  0. 

PlaJ.lAldO^ 

00  14  IlaltA 

!•  XSCH<Il)al. 

IHMK  a  I 
HAINCdl  a  1 
iNOLOaS 
MF  a  d. 

9NV  MbAOTStSTAMT) 
aL  a  «hL 
NPTSaNNPtS 
OMxaODPX 
OMYaOOMY 
pLuTso  a  Plots 
mEaO  titles 

TX*J  FOHMAT  (dOAL) 


MAIN 

91 

riAlN 

92 

MAIN 

93 

MAIN 

9a 

MAIN 

9S 

MAIN 

96 

MAIN 

97 

MAIN 

98 

MAIN 

99 

MAIN 

luo 

MAIN 

IVl 

MAIN 

iU2 

MAIN 

lOJ 

MAIN 

1U4 

MAiN 

I  OS 

NAiN 

1U6 

MAIN 

IU7 

MAIN 

108 

MAIN 

109 

MAIN 

110 

MAIN 

Ill 

MAIN 

112 

MAIN 

UJ 

MAIN 

lia 

MAIN 

us 

MAiN 

116 

MAIN 

117 

MAIN 

118 

MAIN 

119 

MA(N 

120 

MAIN 

121 

MAIN 

122 

MAIN 

12J 

MAiN 

124 

MAIN 

12S 

MAiN 

126 

MAIN 

127 

MAIN 

128 

MAIN 

129 

MAIN 

IJO 

MAiN 

IJl 

MAiN 

1J2 
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MAiN 
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MAiN 

lai 

CUHRl 
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MAiN 

1*3 

MAiN 

1** 

MAIN 

1«S 

MAIN 

196 

MAIN 
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MAiN 

1*8 

MAiN 

1*9 

MAiN 

ISO 

MAIN 

iSl 

MAiN 

1S2 

MAIN 

1S3 

MAiN 

IS* 

MAIN 

ISS 
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Cpnni 
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CUHHi 

7 

CUMMi 
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LMOMi 

8 

MAIN 

1S6 
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SUBROUTINE  LIST80 


Calls;  N/A 
Called  by:  MAIN 

Subroutine  LIST80  is  called  by  the  executive  routine  MAIN  to  list  data 
input  to  the  SOQ  code.  The  LIST80  flow  chart  (Fig.  13)  appears  on  page  4S. 

After  control  is  passed  to  LIST80,  header  information  is  printed. 

The  input  unit  is  read  and  a  counter,  KARD,  is  incremented  for  each 
record  read.  The  input  data  is  reformatted  and  printed  on  the  line 
printer.  When  an  end-of-file  is  received  from  the  input  unit,  it  is 
backspaced  K  records  aiid  control  is  returned  to  MAIN. 

Arguments 

K  Unit  number  on  which  input  is  read  (usually  5). 

Relevant  Variables 

C  Card  inputs  read  and  printed  as  read. 
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SUBROUTINE  .\EROW 


Subroutine  AEROW  is  used  to  apply  a  random  phase  variation  to  the 
complex  field.  Figure  14  shows  the  subroutine  AEROW  flow  chart. 

AERO  is  entered  with  the  complex  field  array  real  coefficients,  CUR, 
and  with  the  number  of  points  in  x  and  y. 

SIGiVtAM  is  a  constant  established  by  previous  aerowindow  work.  It  is 
later  multiplied  by  the  random  number  returned  from  the  RANDU  call  to 
give  the  proper  random  phase  range  for  an  aerowindow. 

Inside  the  DO  LOOP,  the  random  phase  is  obtained  and  the  sine  and 
cosine  of  the  negative  of  this  phase  is  taken.  A  negative  number  is  re¬ 
quired  to  yield  a  diverging  phase  impact. 

The  complex  field,  CU,  is  represented  by  a  complex  number,  a  +  ib, 
whereas  the  CUR  variables  represent  the  real  coefficients  alone. 

fCUR(l)  =  a 

a  +  ib 

CUR(2)  *  b 

The  random  phase  is  applied  by: 


(a  *  ib)  (cos  +  isinq) 

a  cos  -  b  sin  -<■  CUR  (1) 

b  cos  +  a  sin  ^  -►  CUR  (2) 

Argtiment  List 

CUR  Complex  field  array 

NPTS  Number  of  x  points 

NPY  Number  of  y  points 


Figure  14.  Subroutine  AEROW  flow  chart. 


Relevant  Variables 


CURS  Odd  number  members  of  field  CUR 

P  Phase  change 

SIGMAM  Aerodynamic  window  constant  =  0.  54T 
YFL  Random  number  generated  by  "RANDU" 
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4.  SUBROUTINE  RANDU 

Subroutine  called  by  AEROW  returns  rectangularly  distributed  random 
niimbers  in  the  range  0  to  1  in  the  variable  YFL.  Figure  15  shows  the 
RANDU  flow  chart. 
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SUBROUTINE  APRTR 


Called  by:  MIRROR,  GDL 
Calls:  N/A 

a.  Purpose  --  Subroutine  APRTR  applies  an  aperture,  either  circular  or 
rectangular  (Fig.  lb),  with  or  without  a  central  obscuration,  to  the  comolex 
field.  It  also  determines  the  value  and  position  of  maximum  intensity  on  the 
aperture  plate.  Figure  17  shows  the  APRTR  flow  chart. 


Figure  16.  Subroutine  .APRTR  nomenclature. 


•  •  •  • 


APRTR  is  entered  with  the  inner  and  outer  obscuration  dimensions 
along  with  the  coordinates  of  the  aperture. 

A  test  is  made  to  see  if  the  aperture  is  rectangular  or  circular. 
The  appropriate  boundary  parameters  are  computed.  Each  point  in  the 
complex  field  is  checked  to  see  if  it  will  pass  through  the  clear  aper¬ 
ture.  If  so,  it  is  left  alone.  If  not,  it  is  zeroed  out  after  it  has 
been  checked  to  determine  if  it  is  the  location  of  maximum  intensity  on 
the  aperture  plate. 
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Figure  17.  Subroutine  APRTR  flow  chart. 
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The  transmission  function  is 


t(x,  Y)  = 


|RDISK^  V (x-xpos) "  +  (y-ypos)^RA?RTR 
|o  otherwise 


b.  Relevant  formalism 


RPP  «  1 1  X  I  >  >  (|  y  I  *  ^1' 

RMM  =  |l  X  I  -  y  '  ■  %) 

RMP  =  |i  X  I  -  y  I  > 

RPM  =  ||xl+  *  |ly|- 


These  four  locations  represent  an  area  surrounding  the  particular 
point  of  interest  as  shown  in  Figure  16.  For  each  of  these  sets  of 
points  the  locations  of  the  aperture  and  obscuration  are  checked.  If  all 
the  four  points  impinge  on  an  aperture  or  central  obscuration,  then  the 
intensity  at  that  location  is  computed  and  checked  for  maximtun  value, 
then  the  field  is  zeroed  out  (by  the  impingement) . 

Int  =  (ReCu)^  +  (ImCu)^ 

Max  Int  =  AMAX  (Int,  Max  Int) 


PER  =  0 


Cu  =  CU  X  PER 


If  all  four  points  lie  within  the  clear  aperture,  the  field  is 
unchanged. 

PER  =  1  C24) 

CU  =  CU  X  PER 

C25j 

If  the  four  points  encompass  an  aperture  edge,  then  the  intensity 


is  prorated  on  a  percentage  basis  and  transmitted. 

PER  =  (RAD-RMIN)  /  RMAX-RMIN)  (26) 

CU  =*  CU  X  PER  (27) 

where 

R-^lAX  =  MAX  of  CRPP,  RMM,  RMP,  RPM)  (2S) 

RMIN  =  MIN'  of  (RPP,  RMM,  RMP,  RPM)  C29) 

R.AD  =  Radius  for  x  or  y  dimension)  at  aperture  edge  (30) 


Argument  List 


RAPRTR  Radius  of  circular  aperture  (cm)  or  x-dimension  (half  width) 
of  rectangular  aperture  (cm) 

RDISK  Radius  of  central  obscuration  of  a  circular  aperture  (cm) ;  or 
x-dimension  (half  width)  of  a  rectangular  central  obscuration 

XPOS  X  location  of  aperture  center  with  respect  to  optic  center- 
line  (cm) 

YPOS  y  location  of  aperture  center  with  respect  to  optic  center- 
line  (cm) 

YAPRTR  y  dimension  (half  height)  of  rectangular  aperture  (cm) 

YDISK  y  dimension  (half  height)  of  a  rectangular  central  obscura¬ 

tion  (cm) . 
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Relevant  Variables 


A 

AINT 

AINTMX 

B 

DX 

DY 

RAO 

X 


Half  width  of  rectangular  aperture  (cm) 
Intensity  (W/cm^) 

Maximum  intensity  (W/cm") 


Half  height  of  rectangular  aperture  (cm) 

X  distance  between  points  in  the  mesh  (cm) 
y  distance  between  points  in  the  mesh  (cm) 

»  RAPRTR,  aperture  radius  (cm) 

X  location  adjusted  for  centerline  difference  and 
accumulated  dx  (cm) 

XAR  (N)  X  or  y  position  of  N  (cm) 

Y  y  location  adjusted  for  centerline  difference  and 

accumulated  dy  (cm) . 

Commons  Modified 

/MELT/ 

Array  modified  CU(r)  ?  APRFIX.56,93. 
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6 .  SUBROUTINE  BLUMIT 


a.  Purpose  --  In  the  interstage  duct,  phase  perturbation  can  be 
induced  in  the  beam  due  to  transient  thermal  blooming.  This  effect  is 
suppressed  by  a  sonic  purge  flow  using  the  transverse  thermal  blooming 
routine.  The  BLUMIT  routine  models  this  residual  sonic  purge  flow  thermal 
blooming  in  the  interstage  duct.  Figure  18  shows  the  subroutine  BLUMIT 


organization. 


BLUMIT.  13  - -  BLUMIT  22 


BLUMIT  24 - -  BLUMIT  28 


BLUMIT  29 - -  BLUMIT  39 


Figure  18.  Subroutine  BLUMIT  organization. 


b.  Formalism  --  As  the  beam  propagates  through  the  sonic  purge  flow, 
it  is  continuously  distorted  by  that  flow.  Under  the  assumption  that  this 
distortion  has  a  perturbative  effect  on  the  beam,  the  integrated  effect  of 
any  thermal  blooming  can  be  approximated  by  a  finite  number  of  discrete 
steps  in  the  following  manner: 

Assume  each  step  is  of  length  OL.  The  distortion  is  applied  by 
propagating  a  length  DL/2  to  the  center  of  the  cell,  then  applying  the 
thermal  blooming  transmission  fimction.  The  beam  is  then  propagated 
through  the  r«naining  DL/2  to  the  edge  of  the  cell.  The  nonlinear 
blooming  transmission  function  t(x,y,AL,ICx,y))  is 


t 


-otAL/2  iAb 
*  €  £ 


C31) 


where,  a  is  the  absorptivity  of  the  medium.  Ab  is  written 


Ab  =  ds'  <ST  (x,y,z’)  (32) 

'V 

This  can  be  rewritten  using  the  equation  of  state  for  an  ideal  gas 

(P  =  RTd/M),  and  the  Gladstone-Dale  relationship.  Assuming  constant  pressure, 

the  expression  of  Ab  becomes 


AL 


dz'  5T  (x,y,z') 


(33) 


where  5T  represents  the  temperature  variation  in  the  flow  due  to  heating  by 
the  beam.  For  transverse  blooming,  5T  can  be  written 


I  Cx'.y.z) 


(34) 


In  the  above  expression,  the  flow  is  assumed  to  be  from  the  negative  X  direc¬ 
tion  with  speed  v.^,. 
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This  effect  is  activated  in  subroutine  CAVITY  by  setting  NGTYPE*2.  The 
duct  is  then  treated  as  if  it  were  another  cavity,  the  gain/phase  transmis¬ 
sion  function  being  that  of  transverse  thermal  blooming.  It  is  updated  by 
subroutine  REGAIN. 

Since  the  only  mathematical  difference  between  transverse  and  free  con¬ 
vective  is  in  the  velocity,  this  routine  can  also  handle  free  convection 
blooming  with 


/  2aP(2)g  \  1/3 
''fc  oCpT  ) 


C3S1 


c.  Fortran 


Argument  list 


P  =  Intensity  array.  It  returns  as  the  phase  change  in  wavelengths  due 
to  blooming. 

G  a  Gain  array.  Intensity  loss  due  to  blooming. 

NCV  =  Cavity  number 

WL  =  Wavelength 

Commons  modified  -  None 
Subroutines  called  -  None 

The  subroutine  8LUMIT  computer  printout  follows. 
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SUBROUTINE  CAVITY 


a.  Purpose  --  The  CAVITY  routine  models  the  interaction  of  a  GDI 
cavity  and  the  complex  optical  field.  As  the  simulated  field  is  propagated 
through  the  cavity,  it  interacts  with  the  flowing  medium.  As  a  result,  both 
the  intensity  and  phase  of  the  beam  are  modified  through  the  CAVITY  routine. 
Figure  19  shows  the  subroutine  C.AVITY  organisation. 

b.  Formalism  —  As  the  beam  is  propagated  through  the  cavity,  its 
intensity  and  phase  are  continuously  updated.  The  beam's  amplitude  and  phase 
are  amplified  and  redirected  by  the  medium- induced  gain  and  phase  change. 

This  medium-beam  interaction  results  in  an  integrated  effect.  It  is  assumed 
in  CAVITY  that  the  total  effect  can  be  approximated  by  a  finite  sum  of  M 
terms  in  the  following  manner:  The  total  cavity  length  Z  is  divided  into  N 
steps,  each  Z/N  =  AL  in  length.  In  each  segment,  the  interaction  of  the 
field  with  the  medium  is  approximated  by  vacuum  propagation  through  half  of 
the  segment,  (AL/2) ,  followed  by  the  application  of  a  field  dependent  trans¬ 
mission  function  of  the  form 
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Figure  19.  Subroutine  CAVITY  organisation. 
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The  gain  coefficient  g  and  refractive  index  An  are  calculated  in  other  sub¬ 
routines  using  an  appropriate  choice  of  kinetic  modeling.  The  beam  is  then 
vacuum  propagated  through  the  remaining  AL/2.  This  procedure  is  repeated 
until  the  beam  reaches  the  end  of  the  cavity. 

c.  Fortran 
Argument  List 

NCAV  =  Cavity  identity  number  (1,  2,  3,  ...  N) 

ILR  =  identifies  the  direction  of  propagation  through  the  cavity: 

-1  *>  right  to  left 
■*■1  =>  left  to  right 

N'EWCAV  =  A  parameter  that  identifies  whether  the  cavity  has  been  entered 
before. 

INIT  =  .True,  if  it  is  the  first  interaction  of  a  given  run 

=  .False,  if  it  is  the  second  or  subsequent  interaction. 

NSTE  =  Controlling  parameter  for  subroutine  STEP.  If  the  geometric 
beam  is  converging  or  diverging,  variable  area  mesh  propaga¬ 
tion  (VAMP)  should  be  used. 

.VSTE  *  1  Constant  mesh  with  setup 

=  2  VAMP  with  setup  (exit  at  end) 

=  3  VAMP  (setup  and  remain  in  V.AMP) 

=  4  V.AMP  (uses  existing  setup  and  exits) 

=  5  VAMP  (uses  existing  setup  and  does  not  exit) 

IN  =  Input  data  set  number  or  file  from  which  data  is  to  be  read 

RESTRT  =  .True,  if  initial  beam  is  read  in  from  unit  IB 

»  .False,  if  analytical  initial  field  is  desired 
NPLT  »  Controls  plotting  within  cavity: 

»  0  No  plot 

=  1  Print  field  before  and  after  gain  and  gain  coefficient 
ZLI  =  Incoming  propagation  distance  to  cavity  endwall 
(Additional  vacuum  propagation  distance) 

2L0  =  Exit  propagation  distance  to  cavity  endwall 
(Additional  vacuum  propagation  distance) 

Note:  None  of  the  parameters  in  the  argument  list  is  redefined  by 
subroutine  CAVITY. 
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Common  variables  altered: 


US  -  the  intensity  array 
PPD  -  interpolated  power  density 
CDUM  -  interpolated  gain/phase  transmission  element 
XCAV  -  cavity  coordinate  array 
GFACT  -  define  by  namelist  CAVTY2 
CFIL  -  redefined  by  its  equivalence  with  Power  Density  array 

CU  -  the  complex  field  -  modified  by  propagation  and  the  application 
of  the  cavity  transmission  function 

CG  -  defined  for  the  first  pass,  read  in  for  subsequent  passes  (Cavity 
gain/phase  (G/P)  array  at  each  station  within  the  cavity) 

Namelist/CAVTY  2 

CAVTY2  is  used  to  initialize  the  cavity  physical  properties.  The  name- 
list  is  as  follows: 

■■laMEL  f  ST/  C4'/  typ  /XL£^.  yLtN.ZLtN*  xmcmV  .  y^cav  .  vOOx  .Nfic'y  t 

*  »iof- s  T  •  NuTYOF,  'MoPLUf,  lUSt.  I  .  T  !  .  TP  ,  T  j  ,  Tn,^  ,  TS  .  Ps  .  v  . 

*  XNp  .  xr.Oe; .  XrtPO.xcn,  a02  .TITLt»ALFa.AC^’»VhL’'’’»T’’f“'='«  ANoL  t 
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C  =  .},  AI.L  DFNSTTY 

c  =  A,  HOu-ft.  xlS-1 

C  =  P.  INPUT  from  capos  on  data  set. ..in... 

C  3  (p,  SAMfc  spline  CO-EFF  That  wFWfc  PFaD  in  FlvF 

C  38,  WUN  112  AT  T3l,b  SEC  right  STAGF  ROTH  WALLS 

C  38,1  READ  NAMFLIST  OtNSd  FOR  RIGHT  aTAGE 

C  s9.  RUN  lOR  AT  Tsl.e  sec  LEFT  STagE  ROTm  walLS 
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C  MRE5T  tS  A  flag  for  COMPUTING  A  RESTRaTFD  GAIN...  IF 
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C  NGTyPF  s  2. ..thermal  blooming  FOR  MULTI-BEAM 

C  s  1...FDLL  BLOWN  XINETICS. . .GUL 
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title  is  The  tile  to  APPEAM  on  The  CAVITY  60ULIES  \ 


(AEHO) 


AND  AEWO 
GOULESESS 


T1 

IS 
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IS  MOLP  fraction  of  oxygen 
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VELTy  is  The  velocity  of  medium., .if  ,lt.  1,  Then  The  free 
CONVECTION  VFLOCOTY  IS  CALCULATED  AmO  USED 
ANGL  IS  THE  ANGLE  OF  FLOr  RELATIVE  TO  N.E.R.  0.  IS  LIKE  CAVTTy 
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DATA  ALEN«TLCN«ELblV«XMCAV«rMLAV*NOUA«MUUVtNUSE<>> 

A  FLAdtMPbSTf  NOrTPEi  NttPLUr*  lUSbt  IPUENt T 1 « I ^ t T Jt TN<> TSvPSv V • 
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alCN  is  length  Of  Cavity  in  t-cua  uihlctiun 
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ELbN  IS  LENGTH  UF  CAVITY  IN  OPTICAL  UIHECTION 

AMCAV  IS  Thl  A-OIST  of  optical  AAlS  FHOH  NOZZLE  EXIT  PLANE 

TMCAV  IS  The  r-OISl  OF  OPTICAL  AAlS  TO  CAVITY  AXIS 

NouA  IS  nohoeh  of  OHIO  POINTS  Along  alen 

■VOUY  is  numhEp  of  gPIU  points  along  ylen 

nOSEG  Is  nomgEP  of  segments*  haAIhum  OF  s  PEP  CAVITY 
Flag  is  pahameTeh  ahICm  lonTPolS  selection  of  OENSITT  FIELO 
a  1.  Sh'-1*C0NT0UHE0  StOEaALL 
*  2.  sp-l.  Flat  slutaAct 
a  i*  all  Ub'VSlTY 
a  *,  HUU»e«  ALS-l 

a  S.  Input  FPUM  CAFTTOS  on  oat  a  SkT...lN... 
a  G.  SAME  SPLINE  CO-EFF  IhAI  aEhE  PEAO  IN  FIVE 
aa.  PUN  112  AT  Tal.a  SEL  PlGHf  STAGE  dUTH  vALLS 
aa.l  PEAU  LAHElISI  UENSa  FOP  PIGhI  sTAGE 
av.  PUN  luP  AT  Tal.a  SEL  LEFT  STAGE  aUTH  GALLS 
ap.l  PF.AU  NAMtLlSl  UENSV  FOM  LEFT  STAGE 
alu.  PtAO  OENSXTT  FIELO  FHOH  UNIT  J« 

»U.  PtAU  oEnsITt  FIELU  FPUH  UNIT  Jl 
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a  0  SIMPLE  CLOSEU  FUhM  b*A.S.  GUL  KINETICS 


NgPLUT  a  U 

a  I 
a  2 
a  3 
a-1 
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H4MCH  i>-aHANCM  ThanSITIun 

AN2  la  aoce  fnactiun  or  niimu(iEn 

ACU^  IS  MOCE  EhaCTIOiv  UE  Cammun  UlOAlUE 
AH^O  IS  mule  EmaCTION  UE  aATtM 
acu  la  MOLE  emaCTiun  or  camuun  munuaiue 
Au^  la  mole  ehaciion  ue  uayuen 

••••••••••••••  TmEMMAL  dLoOMlNO  Muri'UEAH  cavity  •••••••••••• 

ALFA  IS  The  MEOlUM  AdSOHd  CO-tEF  IN  CM-l 
ACP  IS  (ME  MEOlUM  SMECIEIC  MEAT  IN  J/6M-Utu  A 
TTEmP  IS  ImE  medium  TEmPEMAIUME  in  UEv  a 

VELIY  IS  TmE  velocity  or  MEU1UM...1F  .LI.  It  THEN  THE  FMEE 
CONVECTION  VELOCUTY  IS  lALLULAIEU  ANU  USCU 
ANtiL  IS  The  ANOLE  UE  FLOP  MELAflVE  lU  N.E.P.  0.  IS  LlAE  CAVITY 
(IE.  AaAY  EhuM  i«.C«P«>  *NU  1««.  IS  The  OTHEM  OIMECTIUN 
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00  A1  HAaliNwH 

cavity 
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CAVITY 

30  7 

K«-l 

CAVITY 

400 

OMAXau.d 
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CAVITY 

453 

MtMOHTaO 

CAVltY 

45* 

c 

PffUPAOATE  DOT  UF  CAVITY 

CAVITY 

355 

c 
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8.  SUBROUTINE  CENBAR 

a.  Purpose  —  This  subroutine  is  used  by  QUAL  to  find  the  centroid 
coordinates  of  the  far-field  beam.  Figure  20  describes  subroutine  CENBAR 
organization. 


CENBAR. 6- 
CENBAR.  11 


CENBAR.  12— ► 
CENBAR.  22 


CENBAR.  23—^ 
CENBAR.  24 


Figure  20.  Subroutine  CENBAR  organization; 
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b.  Formalism  --  Let  E(x,y)  represent  the  field  and  let  w(x,y]  be  a 
weighting  function  defined  by 


w(x.y) 


1,  if  |E(x.y)|->0.1  ( 

max 

0.  if  |E(x.y)|2<0.1 


(375 


Then  the  intensity-weighted  centroid  coordinates  are  found  from 


.  //dxdy  |E(x,y)  |~  w(x.y)  1? 
//dxdy  lE(x,y)  ^  w(x.y) 


where  the  integrals  are  numerically  evaluated  over  the  calculation  region, 
c.  Fortran 
Argument  List 

.\PTS  »  Number  of  points  in  x  direction 
DX  *  spacing  between  two  adjacent  points 
X  =  coordinate  array 

US  =  intensity  array  =  |CU(I)|“  =  lECx.yj!'' 

XCI.NT  =  Centroid  coordinate  in  the  X  direction 
YCINT  =  Centroid  coordinate  in  the  Y  direction 
UMAX  =  Maximum  Intersity 

The  incoming  parameters  are  NPTS,DX,X,US,UMAX.  They  are  unchanged  by  this 
routine  and  are  used  to  calculate  XCINT  and  YCINT. 

.Note:  The  subroutine  assumes  that  the  field  is  square.  Computer  printout 
of  subroutine  CENBAR  follows. 
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9.  SUBROUTINE  DENSY 
Called  from:  CAVITY, 

Calls:  LINTERP,  ROSN,  ROSN6 


a.  Purpose  —  This  routine  controls  the  generation  of  the  cavity  den¬ 
sity-induced  phase  distortion  for  each  cavity  in  the  optical  train.  DENSY 
provides  a  choice  of  density  fields  including  interpreted  test  data  from 
several  devices  and  the  ability  to  read  in  density  fields  from  tape.  Little 
formal  calculation  is  done  within  the  routine  itself,  other  than  the  genera¬ 
tion  of  multipliers  and  certain  other  constants  used  by  the  interpolation 
routines.  DE.NSY  does  tabulate  spline  coefficients  if  any  are  used  to  gener¬ 
ate  the  phase  distorting  field,  and  provides  a  decile  plot  of  the  phase  field. 
Figure  21  shows  the  subroutine  DENSY  flow  chart. 

Argument  List 

FLAG  flag  for  density  field  selection 

IF  file  number  where  MOD  6  density  field  is  stored 

IN  file  number  where  input  card  data  is  stored 

NPX  number  of  cavity  density  grid  points  in  X  direction 

NPY  ntunber  of  cavity  density  grid  points  in  Y  direction 

NSYM  flag  for  symmetry  of  field 

RHO  free  stream  static  density 

XLEN  X-dimension  Cflow  direction)  of  cavity  segment 
YLEN  Y-dimension  (sidewall-to-sidewall)  of  cavity  segment 
ZSLAB  Z-dimension  (optical  direction)  of  cavity  segment 
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Figure  21.  Subroutine  DENSY  flow  chart. 


Commons  Modified 


/MELT/ 


Variables  Modified 

P  storage  array  for  density  induced  phase  distribution 


X4 

Y4 

Z4 

C4 

M4 

N4 

ROCL 


spline  coefficient  and  other  data  useful  in  generation 
of  MOD  6  (XLS-1)  density  field  -  not  used  for  other  field 
options 


/LENSY/ 


Variables 

D 

H 

LL 

M 


RHOCL 

TITLE 

TM 

XLS 

XMULT 

Y 


Modified 

spline  coefficient  array 

cavity  width  (sidewall-to-sidewall) 

flag  for  cavity  wall  symmetry 

number  of  data  points  in  spline  arrays 

centerline  density  variation 

field  identified 

tangent  of  Mach  angle 

spline  array  center  deviation  from  NEP 

magnifier  for  entire  density  field 

position  array 

density  change  array 


b.  Relevant  formalism  —  Most  of  the  formal  calculations  involving 
spline  fitting  a  density  field  and  interpolating  the  results  are  done  external 
to  DENSY  (see  sidiroutines  LINTERP,  ROSN,  and  R0SN6) .  This  routine  directs 
the  activities  that  generate  the  desired  field.  These  activities  are  summa¬ 
rized  below; 


(1)  The  density  field  is  read  in  directly  from  information 
generated  by  another  program  and  written  to  disk  (FLAG 
a  10  or  11) 
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(2)  The  sidewall  density  variations,  but  not  the  coefficients 
for  a  spline  fit,  are  read  in  by  NAMELIST  or  from  data  state¬ 
ments.  The  complete  density  field  is  generated  by  projecting 
these  data  into  the  flow  along  Mach  lines,  and  linearly  inter¬ 
polating  via  LINTERP.  (FLAG  =  8,  8.1,  9,  9.1) 

(3)  The  sidewall  density  variations  and  their  spline  fit  coeffi¬ 
cients  are  read  in  on  cards  or  taken  from  DATA  statements. 

The  complete  density  field  is  generated  by  interpolating  with 
the  spline  fit  along  the  projection.  (FLAG  =  1  through  7) 

A  decile  plot  of  the  density- induced  optical  path  variation  (in  cm)  is 
enerated  after  returning  from  one  of  these  actions. 

Subroutine  DENSY  computer  printouts  follow. 
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10.  SUBROUTINE  FOURT 


a.  Purpose  --  Subroutine  FOURT  performs  a  forward  or  backward  Fast 
Fourier  Transform  on  any  multidimensional  complex  array  by  efficiently  per¬ 
forming  the  summation. 


A 


m 


±27rimn/N 

e 


(39) 
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The  transform  pair  that  needs  to  be  evaluated  is 


and 


F(s} 


f(x) 


f(x)E 


2irixs 


dx 


F(s)e 


-2irixs 


ds 


To  digitally  evaluate  an  integral,  the  continuous  form  of  an  integral  must 
be  changed  to  its  discrete  form.  For  example,  ' 


G  = 


gCx)  dx  ^lim 


b.  Relevant  formalism  —  Assume  that  all  the  intervals,  AX  ,  are 

n’ 

chosen  to  be  equal  and  that  the  infinite  sum  can  be  approximated  by  a  finite 
sum.  Then, 


or 


G  *  AX 


(A 


To  evaluate  Equations  (40)  and  (41)  by  the  approximate  form  (Eq.  (44)), 
assume  that  the  function  f(x)  is  spatially  bounded  in  0  ^x  <  2L  and  that  it 
is  a  band- limited  ftmction  so  that  F(s)  is  confined  in  the  region  -B<S<B.  To 
perform  either  a  backward  or  forward  Fourier  transform,  the  functions  f  and  F 
should  differ  in  form  only  by  the  sign  of  the  exponent.  Therefore,  the  prop¬ 
erties  of  F  must  be  evaluated  so  that  its  region  can  be  changed  to  0^S<2B. 
This  is  easily  done  by  replicating  the  function  f(x)  so  that  it  is  periodic 
with  period  2L.  This  will  not  change  the  value  of  f  in  the  region  of  interest 
and,  by  proper  choice  of  N,  will  return  the  desired  function  F. 


A  sampled  function,  f  ,  can  be  analytically  represented  by  a  Dirac  delta 
function: 


M-1 


f 

n 


2L 

0  (x-nAx)  vfith  Ax  =  — * 

M 


(45) 


A  replicated  function  can  be  represented  by  a  convolution: 


ns-oo 


Therefore,  a  sampled  and  renlicated  function  is  represented  by: 


(46) 


f  (x)  »  fj,  6  (x-nAx)  0^  6  (x-nNAx) 


(47) 


m*.» 


A  A 

The  Fourier  Transform  F(s)  of  f(x)  is 


N-1 


'F  (s)  »  f  jf|«  f  IL  fn  5  (x-nAx)  f  <  Y*  6  (x-nNAx) 
( n»0 


tm«-« 


(48) 


by  the  convolution  theorem.  Since 


(49) 


^  5(x-na)  =  i  ^ 


«  2rin^ 


ns-a. 


na— » 


one  finds, 


„  N-1  2risnAx 

F  (s)  »  V  V 

n*0 


eft 

E- 


(SO) 


Rearranged  this  gives 


f  (s) 


i  E  ‘(-i)  £  ■■ 

ma-®  '  “  n=u 


M- 1  2»imn/N 
e 


(51) 


Recalling  Equations  (-lO”)  and  (44)  ,  define 


F»Ax>  fe  =F„ 

n  n  n+N 

n=0 


2irinin/N 


(52) 


Then 


CD 

E' 

nv=-* 


f  (s)  a  -  >  F 

N(dx)2  ^ 


(53) 


Since  F  »  F  ,  one  can  rewrite  the  above  as  a  replication  for  every  N' 
fli  ni+n 

point. 


t  (S) 


iirk'E.  “’-.4:  L  ’f-s) 

m*0  n*-»  '  • 


(54) 


Therefore,  by  replicating  f(x)  with  period  2L,  F  is  periodic  with  period 
1/AX. 
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So  by  choosing  N  so  that  N/2L>2B,  rewrite  the  limits  for  F  as 
Since  , 

1,  n  =  k 


N-1 

,  _  1  X  '  2jrim(n-k)/n 

^nk 

m*0 


(S5) 


0,  n  ^  k 


invert  (52)  to  find 

N-1 

_  ^  ^  P  -27rimn/N 
n  ■  NAXi^  m 
m=0 


(S6) 


Thus,  choosing  As  =  1/NAx,  the  transform  pair  becomes 


F 


m 


„-2:rimn/N 

e 


(57) 


f 

n 


^'2  irimn/N 


(AxAs  = 


(58) 


where,  with  N/2L  ^  2B, 

sents  f(x)  for  0<x  <2L 
—  n— 


F  represents  F(s)  for  0<S  <2B  (S 
ra  ^  —  m—  ^  m 

(x  s  nAx) . 
n 


=  mAs) 


and  f  reore- 
n 


The  transform  pair  f  and  F  are  now  in  a  form  usable  by  the  Fast 
n  m 

Fourier  Transform  (FFT) .  The  FFT  evaluates  the  sum 


A 


r 


N-1 


k-0 


^*2irirk/N 


(59) 
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Following  Higgins  (Ref."  9],  this  sum  can  be  split  into  two  sms  (choosing  the 
+  sign  in  the  exponent) : 


\’-l 

M-1 

_  „  gffirk/N  ^ 

r  ~  K 

(60) 

k=0 

kaO 

(keven) 

(kodd) 

k  »  0,  1.  3.  5,  ...  2  -  1  (61) 


then 


A 


r 


f  27rir2k/N 


,  2irir(2k*l)/:: 


(62) 


Letting 


B 

r 


47rirk/N 


k»0 


and 


k=0 


_  4rrirk/N 


(63) 


(64) 


9.  Wiggins,  R.J.,  "Fast  Fourier  Transform:  An  Introduction  With  Some 
Minicomputer  Experiments,"  AJP,  44,  1976. 
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A  can  be  written 
r 


A^. 


Br  + 


r  27rir/N 


C65) 


Define 


W  = 


(66) 


Then, 


A 


r 


B  +  C  + 
r  r 


(W„)^ 


By  letting  r  r  +  M/2: 


(67) 


(6G) 


Therefore,  A^  can  be  evaluated  by  doing  two  sums,  each  containing  N/2  terms. 

However,  these  sums  need  to  be  performed  for  only  half  the  r's  ^0^r<2j  since 

A  ♦  M/2  is  found  using  the  two  suras  used  in  the  evaluation  of  A  Bv 
r  r 

initially  forcing  N  to  be  a  power  of  two  by  completing  the  array  to  be 
transformed  with  zeros,  continue  to  divide  each  successful  sirai  into  two, 
until  a  "sian”  is  reduced  to  just  one  number,  taking  care  to  note  that  N 
changes  with  each  division.  When  using  the  FFT,  care  must  be  taken  to  scale 
the  output  correctly  since  the  FFT  evaluates  only  sums  of  the  form 


A 


r 


n=0 


^t2ifinr/N 


(69) 


and  as  can  be  seen  from  Equations  (58)  the  Fourier  Transforms  contain  or 
As:  If  only  forward  then  backward  transforming  is  done,  it  is  sufficient  to 
divide  the  final  answer  by  M  for  each  dimension  as  is  indicated  by  the  last 
part  of  Equation  (58) . 
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Note  that  when  the  data  are  returned  from  the  FFT  the  first  data  point 
is  either  the  x  »  0  or  the  s  »  0  point.  To  see  the  actual  frequency  space 
pictures,  assume  a  two-dimensional  case.  An  isointensity  printer  plot  of  FFT 
output  in  frequency  space  might  look  like  that  shown  in  Figure  22. 


2B 


Pigure  22.  Example  of  isointensity  printer  plot  of  FFT 
output  in  frequency  space. 

To  see  the  -B  to  +B  version,  the  adjacent  cells  shoim  in  Figure  23  must 
be  added  to  Figure  22. 

The  subroutine  FOURT  computer  printouts  follow. 


Figure  23.  -B  to  +8  version  of  isointensity  printer  plot 
of  FFT  output  in  frequency  space. 
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SUBROUTINE  FOURT  76/176  OPT»l  FIN  4.6+452 


04/27/79 


SUdHUUTlNt  FUUMI  (UArAtrtAM«>V4*tdlt*N> 

FOUNT 

2 

c*«* 

FOUNT 

3 

c 

ThC  CUOLbr-TUKET  FAbf  FUUHltd  IHANdFuMH  IN  uSASl  dAblC  FUHTHAN 

fount 

4 

c 

TMaNSFOHM(M  tK2<...)  >  Son(UAIA(Jl.U2t...l  •EAr'(ISI(iN*2*»>(*Sgxr(-ll 

FOUNT 

*> 

c 

•1  lJl-l)»(Kl-n/NN<l)«<J2- 

1>*<K2»II/NN(2)*...) 1 ) *  SUMMED  for  all 

fount 

6 

c 

3li  M  dtroEbN  1  ANU  NN<1) 

*  J2*  K2  BEfaEEN  1  ANU  NN(2) •  ETC. 

fuunt 

7 

c 

fhehe  tb  NO  LiMtr  ru  The  numoex  uf  bUddCxiHrsi*  uata  is  a 

fuunt 

B 

c 

NULTIUIMENSIUNAL  CUNXEEA  AHHAV  anUSE  XEAW  ANO  iMAtilNAMY 

FUUNT 

c 

PAmTS  AHL  adjacent  in  SruXAOEt  SUCH  AS  FUMtHAN  IV  PLACES  INEN. 

FOUNT 

10 

c 

IF  all  INAtolNAHY  PAHfS  AXE 

2EH0  (DATA  AHE  DISGUISED  HEAL)*  SET 

FUUNT 

11 

c 

IFUXm  TU  ZEXU  to  cut  the  XUNNINO  riHE  BY  UH  TU  FUXTY  PEXCENT. 

FouN  r 

12 

c 

UlHENMlSEt  IFOHM  a  *1.  THE  LENGTHS  UF  ALL  OIMCNSIUNS  AXE 

FUUNT 

13 

c 

STUHCO  IN  AXHAV  NN«  UF  LENGTH  NUIH.  THEY  HAY  BE  ANY  POSITIVE 

FUUNT 

lA 

c 

tNiEGExs*  run  The  PxUGXAH 

xuNs  Fasten  on  composite  integexs*  ano 

FOUNT 

IS 

c 

ESPECIALLY  Fast  UN  NUH8EHS 

XICH  IN  FACIOMS  OF  Tao.  ISIGN  IS  »1 

FUUNT 

16 

c 

OX  <1.  IF  A  -1  THANSFUMH 

IS  FULLOaEU  BY  A  *I  ONE  TON  A  *1 

Fuuxr 

IT 

c 

BY  A  •!>  the  UXIGINAL  UATA 

XEAPPEAH*  XULdPLlEO  BY  NTOT  (aNNd>* 

FUUNT 

18 

c 

nni2)*..«i.  thansfohn  values  ame  alhays  complex*  ano  axe  HETUXNEO 

FUUNT 

19 

c 

In  axxay  data*  heplacing  the  input.  In  audition*  if  all 

FUUNT 

20 

c 

OIhEnSIUnS  AhE  nut  pumexs 

UF  laO*  AXXAY  aOMK  MUST  BE  SUPPLIEO* 

fount 

21 

c 

complex  of  length  euual  ru 

the  LAXGEST  non  2*aK  DIMENSION. 

fount 

22 

c 

UIHEXalSE*  HePLACE  hUXA  BY 

2EHO  IN  The  calling  SEOUENCE. 

fuunt 

23 

c 

NUNMAL  FURTHAN  UATA  UXOEHInG  IS  EAPECIEO*  F IXST  SUBSCHIPT  VAHYING 

fount 

2A 

c 

fastest.  all  SUBSCHlPTS  BEGIN  AT  ONE. 

fuunt 

25 

LEVEL  2*  data 

FOUNT 

26 

OIMEnSION  OATATNAX) *NN(2) • 

IF  AL  r 1 32) • aOXK 1 JUU  > 

FUUNT 

27 

NUlMa^ 

FUUNT 

2B 

IFOHHS.I 

FUUNT 

29 

•lal.OO 

FOUNT 

30 

aXal ,UU 

FUUNT 

31 

aSTPXal.UO 

FUUNT 

32 

aSTPIal.Ud 

FOUNT 

33 

rsUPIaB.BBdlBSBOF 

FOUNT 

JA 

IF(N0IM>1)92U«U1 

FOUNT 

35 

1 

NTura2 

FOUNT. 

36 

OU  2  lUlMsltNUlM 

FUUNT 

37 

IF  (NNdUlMt  )  V2U«X2U*2 

FOUNT 

38 

i 

NTuTaNTUfaNN ( lOIM) 

FUUNT 

39 

NPla2 

FOUNT 

AO 

UU  VIU  lUlHal.NUlM 

FOUNT 

A1 

NaNNT lUIM) 

fount 

A2 

FOUNT 

A3 

IFIN-1)920*9UU*S 

FOUNT 

44 

5 

Man 

FOUNT 

A5 

NTaUaNPl 

FOUNT 

A6 

IFal 

FOUNT 

AT 

lUlVa2 

FUUNT 

AB 

lU 

luUUTaM/IUIV 

FUUNT 

A9 

IMEMaH-IUlV«lUUUI 

Fount 

50 

IF(lWUOr«IOIV)SO*ll*ll 

FUUNT 

SI 

11 

IF (IHEMI20*12*2U 

FOUNT 

S2 

12 

NraUaNraGaNTHO 

fount 

SJ 

MSIUUUT 

FOUNT 

SA 

GO  TU  10. 

FOUNT 

S5 

20 

lUlVaj 

FUUNT 

S6 

JU 

lUUUTaM/lOlv 

FUUHi 

ST 

lMEMan.iulV*IOUUr 

FUUNT 

SB 

IF  UuuuT-IuivToO.Jl*  31 

FUUNT 

S9 

31 

IF(IXEMIvO*32t«U 

FUUNT 

32 

IFACTdFTalulV 

FUUHI 

61 

IFalF.J 

FUUNT 

62 

Maiuuur 

FUUNT 

63 

00  TO  30 

FUURI 

44 

•a 

iU|VaiUlv*2 

FUUNT 

65 

GO  TU  30 

FUUNT 

66 

dU 

IF ( 1XEMIGU*S1*«U 

FUUNT 

67 

^1 

NTaOaNTau*NIaO 

FUUNT 

44 

GO  TO  to 

FOUNT 

44 

88 
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TO 
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IF(IOIH-al  ?l»9U«<*0 
/I  IF tlKORMI ;2, 72,90 
T2  lCA5fc«2 

IF(lUlM-l)7j,7j,9U 

73  ICASbaJ 

IF  (NfaO— '(RllVOtijg,  74 
T*  ICASbaa 

NraOaNraU/2 

MSI9/2 

NH2»M»'2/2 

NTOTaNror/2 

I«3 

UO  HU  Ja2,NrUT 
OATAIJlaUATAt 1) 

90  lal»i 
90  UMNSaNRl 

1F(1CAS£~2) lUO,9a«I0O 

9b  nM7«aaNRU*<l*NRNt«/2) 

100  IFINTaO-iHRlIOOOtftOOtllO 
UU  NP2HfaN«<2/2 
J»l 

(iO  ISO  12*1  •NP2tNUN2 
IF (J-I2) I2u, 130,130 
I2U  IlMAAat2«NaN2'-2 

UO  12S  llal2,llMAA,2 
UO  12b  IJall,NTur,NR2 
JJ*s)«13-12 
TEiHHHaUAIAdi) 

T£M*»taOAfA(I3»l) 

UArAa3)*0Ar4ij3) 

UATA ( IJ» 1 1 aOATA ( jj*l I 
0A\A(O3)arEMHR 
I2b  0ArA(J3«l»»r£MRi 
13U  H*Nt»2Mf 
lAO  lFu-Huaq,iba,i4b 

149  JSJ«H 
Haii/2 

IF  tH-N0N2) 19Utl40,l4U 
Ibo  oaj*M 

NU>'i2  r  aN0N2  '•ihOn  2 
IRAHaNfau/rtRl 

310  IF  (  IHAH'*2)  ]90«3J0,32U 
32U  ll>AHalH4H/4 

00  TO  31U 

JJU  DO  Jao  11*1,  UMNO, 2 

00  340  0J*Il,('(0N2»N0l 
UO  140  HlajJ,Nlur,N0H2r 
22*2  1 

rbHOHaUArAIH2) 

rbM*laUAfA(A2*l) 

UATAIA2)  *0474(^1)  •ttlHHM 
0414(^2*1)  aOA  r*  IH 1  ♦  1 )  rtHKl 

UAfAIAl )  *0474141 1 
340  UA74(Kl*l)aUATAI41*l)«7EHHl 
Jbu  H**aX*ntON2 

360  IF  (Mh4«>«H>2KF  I  370,600,000 
370  L'*AAaM4A0(NUM2r,l>M4A/2l 
IF  (MMAA>Hart21  409,409, 360 
300  THt  r 4*- r aOK  1  *FL0A  t  ( l'(0H2 )  /►  COA I  1 4*iaMAA I 

IF ( 1916NI400,390,390 
390  THtTA*-rr,tT4 

400  *M»C0S(TotT4) 

«l*SlN(THei4) 
w9ri>M*>2.*«I*HI 
•SIR1*2. *06*01 

40b  00  »70  U*NON2,l.iHAA,HON2r 

H*W 

IF  ( 6M4A-»K)H2 >420,420,410 


FUURT 

70 

FOUNT 

71 

FOUNT 

72 

FOUNT 

73 

FOUNT 

74 

FOUNT 

7b 

FOUNT 

76 

FOUNT 

77 

FOUNT 

76 

FOUNT 

79 

FOUNT 

60 

FOUNT 

91 

FOUNT 

92 

FOUNT 

93 

FOUNT 

94 

FOUNT 

95 

FOUNT 

66 

FOUNT 

97 

FOUNT 

99 

FOUNT 

99 

FOUNT 

90 

FOUNT 

91 

FOUNT 

92 

FOUNT 

93 

FOUNT 

94 

FOUNT 

99 

FOUNT 

96 

FOUNT 

97 

FOUNT 

99 

FOUNT 

99 

FOUNT 

100 

FOUNT 

101 

FOUNT 

102 

FOUNT 

103 

FOUNT 

104 

FOUNT 

lUb 

FOUNT 

106 

FOUNT 

107 

FOUNT 

109 

FOUNT 

109 

FOUNT 

110 

FOUNT 

111 

FOUNT 

112 

FOUNT 

113 

FOUNT 

114 

FOUNT 

lib 

FOUNT 

116 

FOUNT 

117 

FOUNT 

116 

FOUNT 

119 

FOUNT 

120 

FOUNT 

121 

FOUNT 

122 

FOUNT 

123 

fount 

124 

FOUNT 

12b 

FOUNT 

126 

fount 

127 

FOUNT 

129 

FOUNT 

129 

FOUNT 

130 

FOUNT 

131 

FOUNT 

132 

FOUNT 

133 

FOUNT 

134 

Fount 

135 

FOUNT 

136 

FOUNT 

137 

FOUNT 

139 

FOUNT 

139 

Fount 

'  140 

41U 

•2ri4«M«4M*4 i 44 I 

K0U27 

141 

•2i«2.4«M4«i 

Fount 

142 

* 3Ma42H4«M-«2 I 4« 1 

Fount 

143 

■4la42M44l*42I4wA 

F0UH7 

144 

42U 

OU  530  llal,UHN(j«2 

Fuun7 

145 

00  530  J3all,N0N2>Nt<t 

KUUH7 

146 

KMlNaj3*lPAH4M 

Fuun7 

147 

IF  |MMAA'*««UN2)430t430a440 

F0UH7 

14« 

430 

KMlNa^3 

FOUHt 

149 

440 

K01Fat»>«M*MM4X 

Fount 

150 

4^0 

KSrE)*a4a40IF 

F0un7 

151 

UU  520  KIaXMlN,NTur«KOrE»> 

Fount 

152 

K2aKI*K0iF 

FOUHt 

153 

X3«K2*K01F 

F0un7 

154 

K4aK3*KI)lF 

Fount 

155 

rF(MM*X>MOM2)460«460<460 

Fount 

156 

»AO 

UlHaOATXIKl) *U«IA«A2) 

Fount 

157 

UilaOAT* (K 1*1) *0474 (K2*l) 

FOUHt 

155 

U2NaOA7 A IK3) *0414(441 

Fount 

159 

U2iaUATA(K3*i) *0414(44*1) 

Fuunr 

160 

U3Ma0AT4(Kll'*04r4<42> 

Fount 

161 

03140474 (41* 11 *0414 (42*1) 

Fount 

162 

IF  (151014)4 70,4 79*4 70 

K0UH7 

163 

470 

04040474 (43*1 >-0474 (44*1) 

Fount 

164 

04140474 (44) •0414(431 

Fount 

165 

00  70  010 

Kount 

i66 

471, 

042404 74 (44*1 >-047 A (43*1) 

FOUHt 

167 

04lauA7A(43)>UA7A(44) 

Fount 

166 

00  70  910 

Fuunf 

169 

400 

72Ha«^H*04rA(42)*42l*UA)4(42*l) 

FOUHt 

ito 

72144^240474(42*1) *421 *UAI A (42) 

KUUH7 

171 

73HaaM4|)A7A  (43)  •■l^OAI  A  (40*1 ) 

FOUHt 

172 

7Jla«K*UA7A (4J*i) «*1*UA7A (43) 

K002  7 

173 

74Ha«JH40A7A(44l 'ajiauAlA  t4**») 

FOUHT 

174 

(4l44  3H*UA(4(44*l)  *<)314UAI  4(44) 

ruunr 

175 

01240474(41) *722 

FOUHt 

1  76 

01140*74(41*1) *721 

FOUHt 

1/7 

0224(32* (42 

KUUH7 

176 

0214731* (41 

FOUHt 

1 79 

032aUA7A(4il*(22 

FOUHt 

too 

03i«0A7A(4i*(l*721 

FOUHt 

161 

IK  (  (51(,''()  *00*900,900 

FOUHt 

162 

*00 

04247jI-(*1 

FOUHt 

163 

041*  (AH'-  r  3H 

FOUHt 

164 

OO  7o  910 

FOUHT 

165 

bOo 

0*2a(*{-731 

FOUHt 

166 

041*732- (42 

FOUHT 

167 

btO 

0474(41)4012*022 

Fount 

166 

04l4(4l*l)aotl*o21 

FOUHt 

169 

0474(42) *032*042 

FOUHt 

190 

0474(42*1)4(731*041 

FOUHt 

191 

0474(43)4012-022 

FOUHt 

192 

0A)4(43*l>4011-o21 

Fount 

193 

047 4 (44 ) *032-042 

Fount 

194 

020 

U4(4(44*l)*U3l-04l 

Fuunr 

19b 

4212444(4212-03) *03 

FOUHT 

196 

401Fa4S7bF 

Fuunt 

197 

IF (K01F-2P2) 450,530,930 

Fount 

196 

040 

CU27l20b 

FOUHt 

199 

242244-2 

FOUHT 

20U 

IF ( 19102)540,550,990 

FOUHt 

201 

04U 

7t222*42 

FOUHt 

202 

424-4 1 

FUUHt 

203 

*  la- 76222 

FOUHt 

204 

30  70  560 

Fuunt 

205 

050 

TE7«22a22 

Fount 

206 

42441 

FUUHT 

207 

4larE222 

Fount 

206 

060 

IK  12-1.2*4)  969,909,410 

FUUHt 

209 

069 

(£222442 

FOUHT 

210 

424424*5 ) 22-4 1 445721*42 

FOUHt 

211 

90 


•3l\t 

FOUPT 

212 

FUURT 

213 

MMa4sMM4A*MM«4 

FOUNT 

214 

bO  TO  J6U 

FOUNT 

21» 

60U 

IF  (NTaO-olf^loObf  /0U<  /UU 

FOUNT 

216 

bUb 

IF»>laNUN^ 

FOUNT 

21T 

If  ■! 

FOUNT 

218 

N»»lr(F 

FOUNT 

219 

bli> 

IF*'2«IF>»l/lFACr  (  IFI 

FOUNT 

220 

JlHUlijMWfd 

FOUNT 

221 

IFlICAbe>Jlbl2tailf«12 

FOUNT 

222 

bU 

JlKN(j«(NH2»IFHl|/<; 

FOUNT 

223 

J2brH»NH<'/  IFACr  ( IF  ) 

FOUNT 

22* 

JlH<32«<J2brH*IFr>2)/2 

FOUNT 

22b 

oli 

J2M(Nsl*tF>'2 

FOUNT 

228 

(F(  |F>'l-‘'<»>2)blb<b«U<MU 

Fount 

227 

OU  bJb  J2*U2MiN<  lF»>lf  IFP^ 

FOUNT 

228 

rnt  T  A«-  r  aOt*  1  •F  LDA  f  ( J2-1 )  /FLOA 1  «N*»2) 

fount 

229 

IF  1  ISKixl  b2b«6^0«o2U 

FOUNT 

230 

oiiu 

TtltTA««rn6TA 

f'  uun  t 

231 

o^b 

SlNrti«bI>^(Trl6rA/2.) 

FOUNT 

232 

«b  rt»M*-2  .  ab  I N  rM«S  I N  r  r( 

FOUNT 

233 

•bfFI«SIN(lHtTAl 

fount 

23* 

•HaublHH*! , 

FOUNT 

23b 

MlaabTFl 

FOUNT 

236 

JlHIi>«aoa*IFMl 

FOUNT 

23T 

OU  bjb  JlHNUt  IFr<i 

FOUNT 

238 

IlHAA«Jl»UHNa-2 

FOUNT 

239 

UU  bUU  naUlfliMAAt2 

FOUNT 

2*0 

UU  040  IJ*U  .NTur.NH2 

FOUNT 

2*1 

JjMAAat J* IFUi-NHl 

FOUNT 

2*2 

UU  04U  JJaUtJJMAAtcNHl 

FOUNT 

2*3 

renHt4aOArA(j3) 

FOUNT 

2** 

UArA<JJJaUArA(J4l*a>4>UArA<aJ*iI*ai 

FOUNT 

2*b 

bJu 

UAtA»J4«l)artHHM«aI»UATAU4»l)*art 

FOUNT 

2*6 

TEMFt<aart 

FOUNT 

2*T 

aMBaHObS IPH-a I aaS  T  M 1 ♦aH 

FOUNT 

2*8 

bJb 

ataTEMFX*abIU(*al*ViSrHH*al 

FOUNT 

2*9 

b40 

TMETAa-raOPi/FLOAT ( IF ACI (IF ) > 

FOUNT 

2b0 

IF(ISt<«N)ObO«Oab«Oab 

FOUNT 

2b  1 

b4b 

THtrAa-rrtfcTA 

FOUNT 

2b2 

bbu 

SIf<TH«SlN(  TMt  lA/2. ) 

FOUNT 

2b3 

aSrPpa-i.ablNTHablNTM 

FOUNT 

2b* 

aSrPIablN(TnerA) 

FOUNT 

25b 

HSreP»2«'«/IFACT<IF) 

FOUNT 

2b6 

KPAN0anSfeP«(IFACr(IFI/2l  *1 

FOUNT 

2b7 

UU  OU8  IlBl«UHl<«U*2 

FOUNT 

2b8 

UO  098  IJa|l,NTUT«NP2 

FOUNT 

2b9 

UO  090  FialNai  ,KHAN(j<KbTEP 

FOUNT 

260 

JlMAABl  J«JlHj'iU'-lFPl 

FOUNT 

261 

OU  080  Jla[ j.UlHAA.IFPl 

FOUNT 

262 

U4MA xa J 1 • 1 FP2*NP 1 

FOUNT 

263 

OU  080  UJaUltUJMAA.fOPI 

FOUNT 

26* 

J2MOAaui*lFPl«IFP2 

FOUHt 

26b 

KaNMIN*U3>Ul*(Ul«l4l/lFACI  (lF|l/'«Pi8F 

FOUNT 

266 

IFIHMiNatlObStObbfOOb 

FOUNT 

267 

bbb 

SUAMaU. 

Fount 

268 

SUMlag, 

FOUNT 

269 

UU  66U  J2aU3*U2MAAtlFP2 

FOUNT 

2ro 

bUMMabUHM«0ArAIU2) 

Fount 

2ri 

MU 

SUHIabUMl*OOrA (U2*l) 

Fount 

272 

aUMH (K) abUMN 

FOUNT 

273 

aONK(K*l)abUPl 

FOUNT 

2  7* 

GU  TO  08U 

FOUNT 

2Tb 

b«b 

KCUNUaK*^a<N«aMlN*U 

Fount 

2T6 

J2aJcHAA 

Fount 

2TT 

SUiaRBUArA(j2l 

fount 

278 

SUMlaUATA(j2*U 

FOUNT 

279 

ULOSHbO. 

FOUNT 

280 

UCUSlaO. 

fount 

281 

J2aJ2-IFP2 

FOUNT 

282 

<»7U 

rbMHMaSUMM 

FOUPt 

263 

Tfcrt^laSum 

FOUMT 

206 

SOMRa ( WOWM*bUMH-OLUbM  *U A  74(321 

KOUH7 

265 

SUM I a  r  WOMWaSuM 1 •ULUb 1 *U«  7  A i 32* 1 1 

FOUHt 

266 

oLuSMareMPH 

KUUMT 

26  7 

OLUSlartMPl 

KOUHT 

266 

32a32-IFM2 

koumt 

269 

IK (32*331 6/B<67bt6/u 

*UUM7 

290 

B/b 

T&MMMaMH*SuMH*UI.3SM*UA  (  A  (321 

KOUHT 

291 

TEMHlaaI»buMi 

KOUHT 

292 

aUHA ( M  a  r  EMMm- I EMM 1 

KOUHT 

293 

aUHK  (KC0I<I3)  arEMPM*TtM»>I 

KUUHT 

296 

TtMPKaaH«SuMl-OLUSl*OAI A(32*l) 

KOUHT 

29b 

7EMt>iaaiabUMH 

KOUMT 

296 

aOMK  (K*  1 1  aTbHMIii*  (tMM  1 

KOUHT 

297 

MUNK  ( KCU>«3*  1 1  a  I  tMMH-  7EMM  1 

KOUHT 

296 

BdO 

C01971MUE 

KOUHT 

299 

IK (Kmin-i 1 6Mbte6b*«a6 

FOUHT 

300 

Bdb 

aMa6i)7PM*l  • 

KUUHT 

301 

aIaa67MI 

FUUHT 

302 

6U  TO  69U 

KUUHT 

303 

BH6 

(EHMMaaM 

KUUHT 

306 

aHaaMaaS  7  PH-a 1 aaSt  P 1 ‘aH 

KOUHT 

30b 

aIarbMPMat,3TPl*alaab7PH*al 

FUUHT 

306 

B40 

7auMMaaP*aH 

KOUHT 

307 

IK(ICAS£-3)692<691.b92 

KUUHT 

308 

B>#1 

IK (IFPl-MP2l99b«692t692 

KOUHT 

309 

Aaj 

KOUHT 

310 

12HAAaI3*NP2'-NPl 

KOURf 

311 

OU  693  12aI3< I2MAA,NP1 

KUUHT 

312 

0A7A(121«aUHKIK) 

KUUHT 

313 

OA7A(12*llaaUMK(K«ll 

KOUHT 

316 

BV3 

Ra2*2 

KOUHT 

31S 

(iO  TO  696 

KOUHT 

316 

69b 

33MAAal3*IFP2-NPl 

KOUHT 

317 

00  697  33aI3<3JMAA<NPl 

^OUHt 

318 

32MAAa3j*NP2*32b  7P 

kuuhI 

319 

00  697  32a33«32MAXt32S7P 

KOUHT 

320 

3lMAXa32*3lM02*iKP2 

FOUHT 

321 

31CN3a33*32MAX*32STP-32 

FOUHT 

322 

00  697  3la32t31MAXf 1FP2 

KOUHT 

323 

Ral»31-13 

KOUHt 

326 

UATA(31iaaOHR(K) 

KOUHT 

325 

UAIA(31*UaaOHK(K*ll 

FOUHT 

326 

IF (31-321 697 t 697 <696 

KOUHT 

327 

696 

0A7A  (3lCi'(3)  aaOKKA  (A) 

F0(3HT 

328 

0  A  7  A  (  3 1 0(43*  1 1  a-aOHK  ( K  *  1  ) 

FUUHT 

329 

69  f 

31CN3a3lCN3-lFP2 

KUUHT 

330 

696 

Continue 

FOUHT 

331 

IFaIF*l 

KUUHT 

332 

IKPlalKP2 

KUUHT 

333 

IF(IKPI-NPI)  7U((<70Ut61U 

KOUHT 

336 

700 

60  To  (9U0t6UU<9UUt 701 1 t ICAbt 

KOUHT 

335 

70i 

NHALFaN 

KOUHT 

336 

NaN*N 

KUUHT 

337 

THETAa-TaOPl/FLOAI (N) 

kouhT 

336 

IF (ISIGNI  703*702*  7U2 

KUUHT 

339 

702 

7H£T Aa-TMErA 

KUUHT 

360 

703 

SlNTr«aSI>*(  TntTA/2«l 

KUUHT 

361 
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11.  SUBROUTINE  FUHS 


a.  Purpose  --  Subroutine  FUHS  is  used  to  calculate  the  phase  change 
due  to  heat  release  as  the  molecules  in  the  lower  laser  level  decay  to  the 
ground  state,  assuming  supersonic  flow  and  that  the  heat  release  has  a  dis¬ 
turbing  effect  (not  major)  on  the  flow.  Figure  24  shows  the  subroutine  FUHS 
flow  chart. 


b.  Relevant  formalism  —  The  equations  used  are  based  on  those  by 
Biblarz  and  Fuhs,  (Ref.  10),  and  by  Fuhs  (Ref.  11). 


Initially,  it  is  assumed  that  the  continuity,  momentum,  and  energy  equa¬ 
tions  for  steady  flow  with  heat  addition  are  valid; 


Continuity: 

Momentum: 

Energy : 


7  •  (pu)  a  0 
Du 

P - 7  a  0 

Dt  P 


(70) 

(71) 

(72) 


These  are  linearized,  assuming 


p  =  0^  +  p'  p  =  p  *  p' 


U  a  1  (U+U  )  +  J  V 


(73) 


resulting  in 

Continuity:  p^u'  +  p  u'  +  Up'  »  0 

®  X  00  y  X 


(u'  s  — — u'  ;  etc.\ 

^  / 


(74) 


(75) 


Momentum: 


jp.  uu;^  *  p;  -  0] 

jp  Uv'  +  p'  a  Oj 

'  «  X  y 


(76) 


10.  Biblarz,  0.  and  Fuhs,  A.  E.,  "Laser  Cavity  Density  Changes  with  Kinetics 
of  Energy  Release,"  AIAA  Journal,  12,  p.  1083,  August  1974. 

11.  Fuhs,  A.  E.,  "Quaside  Area  Rule  for  Heat  Addition  in  Transonic  and  Super¬ 
sonic  Flight  Regimes,"  AFAPL-TR-72-10,  Air  Force  Propulsion  Laboratorv, 
iVP.AFB,  Ohio,  19^2. 


Energy: 


=  q 

>-l  a  \p«  p«/ 


(771 


The  solution  is  then  found  by  using  the  potential  for  the  flow  as  done 
by  Tsien  and  Bieloch,  (Ref.  12).  resulting  in  the  following  equations  for  a 
heat  source  q  in  supersonic  heat  addition 


(78) 

v'»  ^-i^;ii3_<(x-6y) 

(79) 

P-.  (x-ay, 

(80) 

‘ 

(81) 

where 

X  a  Sy  Defines  a  Mach  line 

(82) 

B  =>/mM 

(83) 

a  =  1//M  Speed  of  sound 

(84) 

(85) 

For  volume  heat  addition  q  -*■  dq  *  h(x,y)dxdy,  and  the 
are  added;  for  example. 

effect  of  all  sources 

u'  a  ~,(^.~Ll^^Cx,y)  dxdv  6  (x-6y) 

(86) 

a  liXlil /h(xa6y)  sin  yds 

2ypS  ^ 

(87) 

12.  Tsien,  H.  E.  and  Milton  Beilock,  "Heat  Source  in 
of  the  Aeronautical  Sciences,  December  1949,  p.  " 

a  Uniform  Flow,"  Journal 
’46. 
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where  the  integral  is  taken  along  a  streamline  (x  *  By')  and  sinu  »  1/M.  S  is 
related  to  x  and  y  by 

S  =  X  cosu  S  y  sinu 

The  equation  for  density  change  is  therefore. 


(88] 


The  first  term  is  due  to  heat  addition  along  a  streamline  while  the  second  is 
due  to  the  wake  in  the  energy  release  region.  "Heat  addition  in  a  supersonic 
stream  causes  compression  waves  which  radiate  from  the  heat  release  region. 
The  waves  reflect  from  the  cavity  walls.  Downstream  of  the  heat  release 
region  is  a  wake.  Itfhereas  the  compression  waves  increase  gas  density  the  wake 
decreases  gas  density”  (Ref.  12) . 


The  heat  release  (h(x,y)  for  a  laser  can  be  written: 


h(x,y)  =  c 


/ 


NEP 


A I  (x',y)€ 


•(x-.x-)/UT 


dx' 


(89) 


where  T  is  the  time  constant  for  the  depopulation  of  the  lower  laser  level. 
If  the  depopulation  were  instantaneous  (T  -►  0)  then  the  heat  release  would 
be  proportional  to  the  intensity  since  for  every  molecule  emitting  a  photon, 
that  same  molecule  gives  off  a  quantum  of  heat.  It  has  been  shown  (Ref.  12) 
that  the  above  equation  for  the  heat  release  can  be  used  in  all  regions  of 
the  far  cavity  with  only  small  error. 

The  constant  C  can  be  found  by  conservation  of  energy.  Consider  the 
following  three- level  molecule  shown  in  Figure  25. 
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m 


Figure  25.  Three-level  molecule. 


The  quantum  efficiency  n  is  defined  as  the  ratio  of  the  power  out  divided  by 
the  power  in,  so  for  the  gain/phase  segment  under  consideration 


^  (No.  molecules)  (E2-Ei)_  P 

*  (No.  molecules)  (E2-Eq)~ 


(90) 


where 

ah  =  (No.  molecules)  (E^  -E^) 

The  above  expression  can  be  inverted  to  give 


(91) 


Assume,  for  this  calculation,  that  (0,0)  is  at  the  comer  of  the  sidewall  and 
the  NEP.  Then, 


AH  = 


(x',y)e-f^-^^/'^dx' 

(x-.x)  Al(x',y)E'‘^''^‘‘’'^'^^dx' 


(92) 
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where,  recall 


I(x-x') 


(l,  x>x' 
0  x<x' 


so 


so 


40  00 


AH  =  CA2  f  dyf  dx!Al(x',y)y  cixICx-x*) 

•'o 


If 

a  CA2  I  dyj  dxAl(,x,y)J  dx  e 


-X  /UT 


”0  ’'0 


AH  =  cA2 


»  30 

y  dy  y  dx-AKx.y) 


a  cUTAzAP 


ill  =  ^  =  cUTA: 
n  AP 


(93) 


(94) 


(95) 


(96) 


Since  the  numerical  kinetics  return  the  conditions  of  the  wake  region  and  not 
the  heat  addition,  these  must  be  the  data  used.  Thus,  for  the  analytical 
kinetics  model,  find  the  heat  addition  to  the  wake: 


X  x' 


W(x,y)  = 


-(x-x'VUT 


-(x-x)/UT 


I  dx'  y*  dx"AI(x*,y)e 
“  _•» 

=  c  jf  dxKx-xO  J  dx  Uxi-x”)  AKx'ly)  e 
=  c  y*  dx'AICx:^)  J  dx  T(x-x)  I  (x'-x*)  e 
=  c  f  dxl'Al(x".y)  Kx-x")  f  dx  t 

Jo  J 


(97) 


so 


/' 


Wu.y)  =  c  /  dx"AI(x”,y)  UT(]-e 


_^-(x-x")/UTj 


(98) 


so,  recalling 


wake  energy  addition  becomes 


W(x.y)  »  1 

Now  that  both  numerical 
heat  addition,  the  Fuhs 


y*  dk  PPD  (x',y)  (100) 

and  analytical  models  can  give  the  wake  integrated 
effect  is  calculated  in  the  following  manner; 


Hd.J) 


■i/ 


.x(I) 

h(x,y)  dx 
x(I-l) 


,  W(X(i^)  - 


Ax 


(101) 


Given  this  average  heat  release  function,  the  integral  along  a  characteristic 
can  be  performed.  Note  that  reflection  off  the  sidewalls  must  be  included,  as 
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can  be  seen  in  Figure  26.  The  contribution  due  to  reflection  at  is  there¬ 
fore  found  by  finding  the  total  heat  released  along  the  characteristic  that 
reflects  at  P,,  then  adding  this  to  that  found  along  P2^i‘ 

(.Vote:  For  larger  Mach  angles  C>tan  -l(lAy/2A.x) )  ,  the  effective  nianber  of 
points  in  the  direction  is  multiplied  by  a  factor  of  KS  in  the  program  so 
that  only  information  in  two  mesh  rectangles  is  needed  to  find  heat  addition 
at  the  wall,  i.e.,  extrapolation  from  the  two  nearest  the  sidewall,  as  can 
be  seen  from  the  following  more  detailed  description  of  how  the  left  and 
right  characteristic  terms  are  found.)  Assume  KS  >  1  and  that  the  Mach  angle 
is  less  than  tan“^  C0y/2Dx) .  This  is  assumed  in  the  program  by  changing  the 
total  effective  number  of  x  coordinates  to  be  KS*NPTS. 


Consider  first  the  left  characteristic  term  for  the  (I,J)  point  in 
Figure  27: 


Dy*t3YR 


•  J-1 


•  •  •  J-2 

1-2  1-1  I 


Figure  27.  Left  characteristic  value. 


The  left  characteristic  value  at  CI.J)  is  that  at  P  (found  by  a  linear  inter¬ 
polation  between  the  (I-1,J)  and  (I-1,J-1)  points)  plus  the  heat  released  in 
the  region,  again  using  a  linear  interpolation  for  H  at  (I-1,J)  and  (I-1,J-1'). 

.Now  consider  a  boundary  point  shown  in  Figure  28; 

•  •  *3 


•  2 


Figure  28.  Boundary  point. 


To  find  the  characteristic  value  at  (1,1)  it  is  necessary  to  know  the  value 
at  point  P  which  is  in  the  (1,1)  colunm  on  the  sidewall.  The  value  will  then 
be  a  linear  interpolation  between  the  values  at  (1-1,1)  and  P  plus  a  similar 
linear  interpolation  for  the  added  heat. 
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To  find  the  characteristic  value  at  point  P,  the  values  at  (1-2,2) 
and  (1-2,1)  are  extrapolated  linearly  toward  the  boundary  to  find  the  value 
at  point  0.  Heat  is  then  added,  again  by  linear  extrapolation. 

•Note  that  this  detailed  analysis  at  the  boundary  assumes  that  the  char¬ 
acteristic  of  interest  lies  between  the  boundary  at  (I-l)  and  the  (1-1,1) 
point,  hence  the  necessity  of  the  restriction  that  DYR  =  DYCH/DY  be  less  than 
0.5. 

Analysis  of  the  right  characteristic  is  similar  to  that  of  the  left 
characteristic. 

The  phase  shift  is  found  using  the  Gladstone-Dale  relation. 

n  S8  1  >  Co  (102) 


The  phase  change  Ao  is 


A<j  * 


T 


X 


(103) 


This  is  then  added  to  that  of  the  unloaded  density  field  to  establish  the 
total  phase  change  at  the  gain/phase  segment. 

c .  Fortran 

Argument  List 


:ic 


fwake  for  numerical  kinetics 

for  analytical  kinetics 

i  /i-nx 

AI  X- 


-(-) 

AZ  \  n  / 


DEN  «  phase  change  returned  due  to  the  FUHS  effect 
NCV  -  cavity  number 
Commons  Changes  -  none 
subroutines  called  -  none 

Computer  printouts  of  subroutine  FUHS  follow. 
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1 2 .  SUBROUTINE  GAINXY 

a.  Purpose  «-  GAINXY  controls  the  gain  calculations  in  the  cavity. 
Figure  29  shows  the  Subroutine  GAINXY  flow  chart.  Either  small  signal  gain 
(along  one  stream  tube;)  or  full-field-loaded  gain  is  selected.  From  input 
cavity  conditions  (including  vibrational  temperatures  of  the  constituents  at 
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nozzle  exit  plane),  all  other  thermodynamic  parameters,  energy  levels, 
broadened  line-width  function,  gain,  optical  cross  section,  and  saturation 
intensity  at  a  single  point  are  given.  Subroutine  KINET  is  called  to  inte¬ 
grate  the  rate  equations  along  the  X-direction  (streamtube) .  This  is  done 
only  once  for  small  signal  gain.  When  loaded  gain  is  selected  the  entire 
field  is  calculated  and  gain  is  updated  by  local  intensity  one  step  in  the  Z 
(propagation)  direction.  The  loaded  gain  is  hence  a  numerical  (small  step¬ 
wise  integrated)  process.  This  updated  gain  and  intensity  field  is  used  to 
SOQ. 

The  single  stream  tube  small  signal  gain  is  used  in  subroutine  SIMPGG 
which  computes  a  closed  form  solution  of  the  full  field  loaded  gain. 

Subroutine  MIX  is  called  by  subroutine  GAINXY  to  calculate  the  transi¬ 
tion  rates. 

A  ratio  technique  is  employed  to  effect  calculation  of  the  gain  field 
for  9.27  ulasing.  This  is  triggered  by  GF.ACT  =  1  for  10.60  u;  GFACT  =  1  for 
9.27  u. 


b.  Relevant  formalism  --  The  option  for  small  signal  gain  only  or 
full-field  loaded  numerical  gain  is  determined  by  IFIELD  =  1  for  small  signed 
gain  and  IFIELD  =  1  for  numerical  gain. 

For  small  signal  gain  only,  the  gain  is  computed  first  at  the  nozzle 
exit  plane  and  then  computed  along  the  flow  direction  by  integrating  the 
rate  equations  in  subroutine  KINET. 

The  particular  initial  thermodynamic  conditions,  rotational  J  values 
(P  or  R  branch) ,  and  initial  vibrational  temperatures  are  brought  in  through 
common/CAV2/ .  Then,  for  a  particular  vibration -rotation  transition,  the  gain 
coefficient  is  given  by; 


(104) 
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Figure  29.  Subroutine  GAINXY  flow  chart. 
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Where , 


h  =  Planck's  constant  =  6.625  x  lO'^'  erg 
M  =  Mass  of  CO^  molecule  =  44  x  1.66  x  10~^^  g 
K  =  Boltzmann's  constant  =  1.38  x  lO"^^  erg/K 

J  +  1  for  J'  =  J  +  1  (P-branch) 

J  for  J'  a  J  -  1  (R-branch) 


n  =  total  gas  number  density 
c  a  speed  of  light  a  3  x  10^*^  cm/s 
x^  a  mole  fraction  of  the  ith  species 

Vi  a  mean  velocity  between  CO,  and  ith  species 

M.  „  a  reduced  mass  of  i-CO.  pair 
i-CO^  2  ^ 

a  optical  broadening  cross-section 
Vo  a  frequency  of  transition  fv,j)  -  fv',  j') 


(los;) 


VJ 


=  N  f.  = 
V  J 


2J+1  ^  -JCJlii  nCv) 


(vl 

rot 


KT 


TOt 


where , 


0^  =  Characteristic  temperature  of  state 
Ty  »  Vibrational  temperature  of  state 
The  saturation  intensity  is  calculated: 
hv8 

^SAT  ""  a 

where, 

hv  =  photon  energy 

a  »  lower  laser  level  relaxation  rate 
a  *  optical  cross-section  of  the  transition 


(106) 


Where  Rc2  is  the  EOVO  transition  rate  ~  (1/s),  all  the  initial  energies 
of  the  vibration  levels  are  conmuted  before  entering  subroutine  KINET. 


EOOVI  =» 


*2349 

„  hc*2349 
KT, 


1 
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EOVOI 


1 


EVOOI 


*2349 

^  hc*667 
KT, 

*2349 
^  he* 1388 


EN2I 


^12*2331 

hc*2331 


KTX^2 


1 


CIO?-) 


'.Vhere  X  and  X.,_  are  mole  fractions  of  CO.  ,  N.  and  Tl,  T2,  T,,. 

CO2  N2  2  and  2 ,  N2 

are  vibrational  temperatures.  These  vibrational  temperatures  and  levels  are 
shown  schematically  in  Figure  30. 

Gain  is  computed  as  a  function  of  x  by  calling  "KI.VET." 

When  the  loaded  numerical  gain  option  is  triggered  (IFIELD)  f  1) ,  the 
full  field  (in  X  and  Y)  gain  is  calculated  in  KINET  as  a  function  of  previous 
intensities  and  the  field  is  updated  when  returned  to  GAINXY  by  propagating 
each  local  intensity  through  a  dZ,  with  local  gain  GAN(I).  The  gain  is  thus 
recomputed  for  each  ooint  G(J)  = 


.Argument  List 


XIC  intensity  array  of  propagation  field 

GAN  gain  array  of  propagation  field 

NCV  cavity  indicator 

IFIELD  trigger  for  small  signal  gain  (»  1)  for  full  field 

loaded  gain  (^  1) 


Commons  Modified 
/START/ 

TSI 

PSI 


VI 


Static  temperature  (K) 
static  pressure  (atm) 
gas  velocity  (cm/s) 
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emperature  and  energy  levels. 


EOOVI 


EOVOI 

EN2I 

GAIN! 

/PROPT/ 

TS 

PS 

V 

RHO 

RHON 

CP 

GAi'IMA 

R 

B 

XLAMB 

HNU 

CPRM 

/MOLES/ 

XN2 

XC02 

XH20 

XCO 

X02 

/RATE/ 

RSTIM 

/FACTOR/ 


Initial  Energy  (OOV  level) 

Initial  Energy  (OVO  level) 

Initial  Energy  vibrational  level 
INITIAL  GAIN 


static  temperature  CK) 

static  pressure  (atm) 

gas  velocity  (cm/s) 

gas  density  (g/cm^) 

number  density  (cm  ^) 

specific  heat  9  constant  pressure 

ratio  of  specific  heats 

gas  constant  of  mixture 

(In  2)  (3.78  X  10®) 

wavelength  (X) 

energy  of  photon  of  wavelength  XLAMB 

parameter  to  get  Doppler  broadened  line  width 
ratio 

mole  fraction  (N^) 

mole  fraction  (CO2) 
mole  fraction  (H^O) 

mole  fraction  (CO) 
mole  fraction  (0.,) 

stimulated  transition  rate  (s'^) 

molecular  weight  of  gas  mi.xture 
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GDL 


Figure  31.  Subroutine  GDI.  organiziition 


o  r  n  n  o  o 


AG  Avogadro ' s  number 

GCON  gain  correction  factor 

ROTUP  upper  rotational  level  (K) 

ROTLO  lower  rotational  level  (K) 

RCORR  correction  factor  for  optical  x-section 

C  speed  of  light  (cm/s) 
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13.  SUBROUTINE  GDI 

a.  Purpose  —  Subroutine  GDL  is  the  main  driver  program  for  resonator 
and  optical  train  calculations.  It  is  here  that  the  information  about  each 
resonator  element  is  stored,  as  well  as  the  order  in  which  they  are  applied 
to  the  beam.  Figure  31  shows  the  Subroutine  GDL  organization. 

b.  Formalism  —  Subroutine  GDL  controls  the  iterative  procedure  of 
starting  with  a  given  field  established  in  the  main  program  CSOQ)  and  propa¬ 
gates  this  field  through  the  resonator.  Eventually,  the  mode  which  loses  the 
least  power  (in  the  case  of  a  bare  resonator)  or  gains  the  most  power  Cin  the 
case  of  a  loaded  resonator)  will  predominate  since  the  other  modes  will  be 
suppressed  due  to  relative  power  loss.  For  the  degenerate  case  when  two  or 
more  modes  are  competing  for  the  status  of  lowest  loss  mode,  the  field  will 
usually  fail  to  converge  to  a  single  mode  shape,  since  there  is  no  unique 
mode  for  that  eigenvalue. 


c.  Fortran  --  To  accomplish  the  above,  GDL  contains  several  fundamental 
arrays.  One  is  the  singly  dimensioned  CU  array  in  which  the  field  is  stored. 
For  a  given  point  (x(I) ,  x(J))  the  field  value  is  stored  in  the  complex  loca¬ 

tion. 

CU  (I  *  (J-1)  *  NPTS) 

Common  /MELT/  contains  CU  as  well  as  the  work  array  CFIL,  the  coordinate 
array  x,  the  location  of  the  optical  axis  (DRX  and  DRY) ,  and  the  iteration 
number  NITER.  This  common  is  shared  by  most  of  the  routines  in  the  deck.  The 
other  major  arrays  are  the  ABC  array,  the  IGDL  array,  and  the  GNOT  array. 
During  the  first  iteration  of  a  particular  run,  GDL  reads  input  from  unit  IN 
in  the  form  of  namelists  and  titles.  The  order  of  resonator  elements  to  be 
met  by  the  beam  is  controlled  by  the  order  in  which  the  SCONTRL  cards  are 
read.  These  contain  the  IFLOW  parameters  which  designate  specific  elements, 
as  follows: 
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NAMELIST/CONTROL/ IFLOW,  SNOTE,  IPLOTS 

IFLOW  CONTROLS  THE  FLOW  OF  CALCULATIONS  THROUGH  GDL 

=  1  CAVITY  ELEMENT,  READS  CAVTYl ,  CAVTY2. 

(from  CAVITY) 

*  2  MIRROR  ELEMENT,  READS  MIROR 

=  3  VAMP  ELEMENT,  READS  PROPGT 

»  4  APERTURE  ELEMENT,  READS  APTUR 

»  5  THERMAL  BLOOMING,  READS  BLOOM 

»  6  INTERPOLATE  FIELD  OVER  SMALLER  AREA,  READS  CUTOUT 

=  7  TEST  FOR  CONVERGENCE  OF  ITERATION,  NO  INPUT 

=  8  PLOT  FIELD  DISTRIBUTION,  READS  TITLE 

=  9  RETURN  CONTROL  TO  CALLING  PROGRAM,  NO  INPUT 

*  10  READ  AND/OR  WRITE  CU  ON  DISK,  READS  DISKIT 

»  11  AERO  WINDOW  R.M.S.  PHASE  MODEL,  NO  INPUT 

=  12  SCALING  ROUTINE  .  .  .MULTIPLIES  ENTIRE  FIELD, 

READS  MULT 

=  13  FLIPS  THE  FIELD  ABOUT  THE  y-AXIS,  NO  INPUT 

=  14  SINUSOIDAL  DENSITY  VARIATIONS,  RE.ADS  SINDEN 

=  IS  REGRIDS  FIELD  TO  LARGER  SIZE,  READS  REGRID 

=  16  CU  PUNCHED  ON  CARDS,  NO  INPUT 

=  17  MIRROR  THERMAL  BL  MODEL,  READS  THRML 

-  18  SPIDER  ROUTINE,  READS  SPIDR 

»  19  AXION  ROUTINE,  READS  AXICON 

»  20  PROPAGATE  IN  R-THETA  SPACE,  READS  RPROP 

=  21  REMOVES  OR  ADDS  BACK  BEAM  CENTER,  READS  CENTER 

»  22  FLIPS  THE  BEAM  .ABOUT  THE  x-AXTS,  NO  INPUT 

IPLOTS  is  the  printer  plot  selector.  IPLOTS*ABCDE ,  where  A*!  selects  R-theta 
plots,  B*1  selects  iso-intensity  plot,  C»1  selects  x-axis  plot,  D*1  selects 
diagonal  plot,  and  E»1  selects  y-axis  plot;  examnle,  IPLOTS  =  1001  selects 


iso-intensity  and  y-axis  plots  in  x-y  coordinates.  The  order  of  IFLOW  numbers 
for  a  given  resonator  is  then  stored  in  the  IGDL  array  for  future  iterations. 
In  the  same  manner  the  associated  titles  are  stored  in  the  GNOT  array. 

Usually  for  a  given  IFLOW  there  is  another  associated  namelist  contain¬ 
ing  relevant  element  parameters.  Once  read  in,  these  numbers  are  stored  in 
.■\BC  where  I  indicates  the  parameter  for  the  J  the  element  of  type  K. 

The  number  (J)  of  the  element  is  stored  in  common  ZIP,  which  is  equivalenced 
to  the  ICAV2  array.  At  the  beginning  of  each  iteration  most  of  ICAVZ  is 
filled  with  zeros  so  that  the  center  index  of  the  ABC  array  is  correctly 
identified.  At  the  end  of  each  iteration,  the  current  field  is  compared  with 
that  of  the  previous  iteration  in  two  ways:  Cl)  the  cutout  and  interpolated 
feedback  field  is  compared  and  (2)  the  full  field  just  before  the  hole-coup¬ 
ling  mirror  is  compared.  VVhen  the  differences  between  two  consecutive  itera¬ 
tions  fall  within  given  tolerances  (10%  for  the  feedback  field,  2%  for  the 
hole-coupler  field  and  0.7%  for  the  power  at  the  output  of  the  resonator), 
the  field  is  said  to  have  converged,  i.e.,  the  lowest  loss  mode  has  been 
selected.  A  more  detailed  description  of  the  meaning  of  each  IFLOW,  its  func 
tion,  and  its  associated  namelist,  if  any,  follows: 

IFLOW  *  1  (GDL.  422-*GDL.446) 

A  GDL  cavity  is  applied  to  the  field.  NEWCAV  is  calculated  to  see  if  the 
beam  has  been  in  the  cavity  before.  The  namelist  used  in  CAVTYl. 

CALLS  CAVITY. 

\A^ELIST/CAVTY1/NCAVN0,  ILR,  NSTE,  NPLT,  ZPROPl,  ZPROPO 
NCAVNO  IS  THE  NUMBER  ASSIGNED  TO  CAVITY  FOR  IDENTIFICATION 
ILR  INDICATES  DIRECTION  OF  FIELD  THROUGH  CAVITY 

*  -1  RIGHT  TO  LEFT 

=  *1  LEFT  TO  RIGHT 

NSTE  CONTROLS  TYPE  OF  VAMP  CODE  BETWEEN  SEGMENTS 
=  1  CONSTANT  MESH  WITH  SETUP 

*  2  VARIABLE  MESH  WITH  SETUP  (EXITS  VAMP  AT  END  OF 

ELE^ENT) 

=  3  VARIABLE  MESH  WITH  SETUP  (REMAINS  IN  VAMP) 


=  4  USE  EXISTING  PROPAGATING  MATRIX  (EXITS  V.AMP) 

*  5  USE  EXISTING  PROPAGATING  ^4ATRIX  (REMAINS  IN  VAMP) 

NPLT  CONTROLS  INTERMEDIATE  PRINTOUT  FOR  CAVITY 
=  0  NO  PRINTOUT 

=  1  PRINT  FIELD  BEFORE  AND  AFTER  GAIN,  AND  GAIN  COEFFICIENT 

ZPROPI  IS  PROPAGATION  DISTANCE  FROM  PREVIOUS  OPTICAL  ELEMENT  TO  CAVITY. 
ZPROPO  IS  PROPAGATION  DISTANCE  FROM  CAVITY  TO  NEXT  OPTICAL  ELEMENT 
IFLOW  «  2  (GDL.S27-K3DL.558) 

Here  the  parameters  necessary  for  application  of  a  mirror  are  set  up. 
The  namelist  read  is  MIROR.  CALLS  MIRROR 

.NAMELIST/MIROR/ANGXX,  ANGYY,  RADC,  DIAOUT,  DIAIN,  XMPOS,  YMPOS,  RMIR, 

X  DELIA,  DISTF,  DDUTY,  DINY,  RANULS,  PHIAST 

ANGXX  IS  TILT  IN  .x-DIRECTION  -  RADIANS  (WRT  OPT.  AXIS) 

.4NGYY  IS  TILT  IN  /-DIRECTION  -  RADI.ANS  (V/RT  OPT.  AXIS) 

RADC  IS  RADIUS  OF  CURVATLfRE  OF  SPHERICAL  MIRROR 

DIAOUT  IS  OUTSIDE  DIAIIETER  OF  MIRROR 

DIAIN  IS  INSIDE  DIAf'IETER  OF  MIRROR 

.XMPOS  IS  X-DISPUCENENT  OF  MIRROR  FROM  OPTICAL  AXIS 

YMPOS  IS  Y-DISPLACEMENT  OF  MIRROR  FROM  OPTICAL  AXIS 

RMIR  IS  REFLECTIVITY  OF  MIRROR 

DELTA  IS  CENTER-TO-EDGE  DISTORTION  FACTOR  (CM) 

DISTF  IS  MIRROR  DISTORTION  FACTOR  (DEFLECTION«DISTF*I* 
(1.0-RMIR)) 

RANULS  IS  OUTSIDE  RADIUS  OF  .ANNULAR  BEAM  (IF  APPLICABLE) 

DOUTY  FLAGS  THE  TYPE  OF  APERTURE  APPLIED  - 

.EQ.  0  -  CIRCULAR  APERTURE  DEFINED  .AS  ABOVE 

.NE.  0  -  RECTANGUUR  APERTURE,  DIAOUT  HIGH  (X)  BY 
DOUTY  WIDE  (Y) 
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DINY  IS  SIMILAR  TO  DDUTY  FOR  INSIDE  DIMENSIONS 
PHIAST  IS  THE  ANGLE  OF  INCIDENCE  OF  THE  BEAM  IN  DEGREES 

IFLOW  =  3  (GDL.578-K]DL.612) 

For  this  IFLOW,  a  propagation  step  is  applied.  Relevant  parameters  are 
found  in  namelist  PRCPGT.  CALLS  STEP. 

.WffiLIST/PROPGT/DELZ,  RDCURV,  WINDOX,  WLNDOK,  IIFG,  IITR,  IIPS 
DELZ  IS  PROPAGATION  DISTANCE 
RDCURV  IS  RADIUS  OF  CURVATURE  OF  PHASE  FRONT 
IF  CABS  CRDCURV)  .LT.O.S)  USE  RADCUR  OF  PREVIOUS 
MIRROR 

WINDOX  IS  X-SPACE  DATA  WINDOW  FOR  FFT 

WINDOK  IS  K-SPACE  DATA  WINDOW  FOR  FFT 

IIFG  IS  A  VAMP  CONTROL  PAR.AMETER 
=  1  FOR  CONSTANT  MESH 
«  2  FOR  VARIABLE  ^€SH 
IITR  IS  ANOTHER  VAMP  CONTROL  PARAMETER 
=  0  NO  INVERSE  TRANSFORM 
=  1  INVERSE  TRANSFORM  BACK  TO  REAL  SPACE 
IIPS  IS  FOR  CORRECTION  OF  PLANE  AND  SPHERICAL  PHASE 
FRONTS 

»  0  NO  CORRECTION 
»  1  PLANAR  CORRECTION  ONLY 

=■  2  QUADRATIC  CORRECTION  ONLY  (NOT  OPERATIONAL) 

=>  3  BOTH 

IFLOW  »  4  (GDL.613-K;DL.631) 

Here  an  aperture  is  applied.  IF  DOUT  and  DIN  are  both  less  than  0, 

SLIVER  is  called.  If  both  are  greater  than  or  equal  to  :ero,  APRTR  is  called. 
The  relevant  namelist  is  APTUR. 
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NAMELIST/ APTUR/DOUT,  DIN,  XPOS,  YPOS,  YOUT,  YIN 

DOUT  IS  OUTSIDE  DIAMETER  OF  APERTURE 

DIN  IS  INSIDE  DIAMETER  OF  APERTURE 

XPOS  IS  x-DISPLACEMENT  OF  APERTURE  FROM  OPTICAL  AXIS 
YPOS  IS  y-DISPUCEMENT  OF  APERTURE  FROM  OPTICAL  AXIS 

YOUT  FUGS  THE  TYPE  OF  APERTURE  APPLIED  - 

.EQ.O  -  CIRCULAR  APERTURE  DEFINED  AS  ABOVE 

.NE.O  -  RECTANGULAR  APERTURE,  DOUT  HIGH  fX)  BY 
YOUT  WIDE  (Y) 

YIN  IS  SIMIUR  TO  YOUT  FOR  INSIDE  DIMENSIONS 
IFLOW  =»  5  (GDL.632-KIDL,6S2) 

Thermal  Blooming  is  applied  to  the  complex  field.  BLOOM  is  read  in  and 
subroutine  is  called. 

NAMELIST/BLOOM/ ALFA,  SCP,  T,  RHO,  ZLEN,  NSTEPS,  INPT,  NPROP,  AXIAL,  DT 


AFU 

a 

MEDIUM  ABSORPTION  COEFFICIENT,  CM‘^ 

SCP 

a 

MEDIUM  SPECIFIC  HEAT,  J/GM-DEG  K 

T 

a 

MEDIUM  TEMPERATURE,  DEG  K 

RHO 

a 

NEDIUM  DENSI-n',  GM/CM3  (OR  TRANSVERSE  VEL 

IF  .GT.l.) 

ZLEN 

a 

^ffiDIUM  THICKNESS  ALONG  OPTICAL  AXIS 

NPROP 

a 

PROPAGATION  PARAMETER.  .  .SAME  AS  NSTE  IN 

CAVITY 

NSTEPS 

a 

NUMBER  OF  ELEMENTS  IN  SUBSYSTEM,  .GE.  1 

INPT 

a 

.NE.O  FOR  INTERMEDIATE  FIELD  PLOTS 

AXIAL 

a 

AXIAL  VELXITY  (CM/SEC)  IF  .GT.  0.  USES 

AXIAL  BLOOMING 

DT 

a 

BEAM  ON  TIME  FOR  THERMAL  BOUNDARY  UYER 

GROWTH  IN  TRANSIENT  BLOOMING  CALCS.  IF 

DT.GT.O  USES  TRANSIENT  BLOOMING 

IFLOW  »  6 

(GDL.653-K;DL.779^ 
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For  this  option  the  field  can  be  cut  out  and  interpolated  from  one 
region  size  to  another.  The  number  of  points  is  not  changed.  If  CUSMF  is  not 
equal  to  zero,  the  field-averaged  feedback  field  is  stored  on  unit  8  and  the 
convergence  checks  are  made  on  the  feedback  field  and  the  pre-HCM  field  which 
is  stored  on  unit  7  temporarily.  The  field  for  the  bare-resonator  is  renor¬ 
malized  at  this  point  to  unit  maximum  intensity.  Namelist  CUTOUT  has  the 
information  for  the  new  region  in  it  as  well  as  other  parameters. 

:!AMELIST/CUTOUT/DrBEAM,  OVRLAP,  DXXR,  DYYR,  MAXIT,  AVCUSM,  CUSMF 

CUSMF  =  1.  FOR  NORMAL  LOADED  RESONATOR  CUTOUT 

CUSMF  =  0.  AVOIDS  WRITING  FIELD  ON  8  AND  AVOIDS  NORMALIZ¬ 
ING  FIELD,  CHANGES  TO  THE  NEW  COORDINATES, 

THEN  RETURNS. 

DIBEAM  IS  THE  DIAMETER  OF  BEAM  FOR  NEXT  ITERATION 
OVRLAP  IS  DCALC  =  OVRLAP*DIBE.iil 

DXXR  IS  POSITION  OF  ITERATIVE  BEA.M  REL.  TO  OPTICAL  AXIS 
DYYR  IS  THE  SA^E 

MAXIT  IS  THE  MAXI.MUM  NUMBER  OF  ITERATIONS 
AVCUSM  AVERAGES  PREVIOUS  AND  NEXT  ITERATION  GUESS  IN  THE 
HOPE  OF  RAPID  CONVERGENCE ... =0  NO  AVE,  =  .5  HALF  AND  HALF 
IFLOW  =  7  (GDL.795-*GDL.842) 

There  is  no  namelist  associated  with  this  option.  The  convergence  check 
on  the  power  is  made  here.  If  the  solution  has  not  yet  converged,  the  gain/ 
phase  information  is  updated  by  a  call  to  REGAIN,  then  the  resonator  is  re¬ 
started  for  the  next  pass. 

IFLOW  =  8  (GDL.S00*GDL.S13) 

If  the  parameter  plot  is  non-zero  in  namelist  START  in  SOQ,  this  IFLOW 
will  generate  printer  plots  by  a  call  to  IPLOT.  Namelist  PLOT  is  read. 

NAMELIST/PLOT/TITLE  RADPLT 

TITLE  IDENTIFIES  THE  POSITION  OF  EACH  ST.ATION  PLOTTED 
RADPLT  CONTROLS  THE  TYPE  OF  PLOT 

=  0.0  FOR  X,Y  PLOTTING  (X-AXIS,  Y-AXIS,  DIAGONAL) 


»  1.0  FOR  RADIAL  PLOTTING  AT  VARIOUS  THETAS 

I FLOW  »  9 

This  IFLOW  only  results  in  the  return  to  the  main  program,  SOQ. 

IFLOW  =  10  (GDL.447-K;DL.475) 

This  option  allows  the  field  to  be  read  in  from  or  read  to  a  specific 
unit  in  standard  SOQ  format.  It  calls  no  peripheral  subroutines  and  reads  the 
unit  designation  from  namelist  DISKIT. 

NAMELIST/DISKIT/ IREAD,  IWRITE,  lORD,  lADD 

IREAD  IS  THE  DISK  #  TO  BE  READ  OFF/ON...  IF^O,.. DON’T 

READ 

IWRITE  IS  THE  DISK  *  TO  BE  WRITTEN  ON...  =0... DON’T  WRITE 

lORD  IS  THE  ORDER  =  1,  READ  FIRST 
=-l.  WRITE  FIRST 

lADD  =  1  UPDATES  IWRITE  BY  1  FOR  SUCCESSIVE  ITERATIONS 
IFLOW  »  11  CGDL.476-K1DL.482) 

This  option  applies  an  aerodynamic  window  to  the  complex  field.  It  reads 
no  namelist  and  calls  AEROW  to  perform  the  calculation. 

IFLOW  =  12  (GDL.485-mDL.499) 

The  field  can  be  scaled  using  this  option.  M  the  same  time  the  x  array 
can  also  be  magnified.  No  subroutines  are  called  and  .’’ULT  is  read. 

NAMELIST/MULT/TRANS,  XiMAG 

TRANS  IS  TRAN.SMISSION  OF  ELEMENT 

XJiAG  IS  MAGNIFICATION  PACTOR  FOP  THE  X- ARRAY 

IFLOW  a  13  CGDL.S14-mDL.S26) 

This  option  flips  the  field  about  its  y-axis.  No  namelists  are  read 
and  no  subroutine  called. 

IFLOW  a  14  (GDL.408-mDL.421) 


This  option  irposes  a  sinusoidal  density  Cphase)  variation  to  the  exist¬ 
ing  complex  field.  It  calls  no  subroutines,  but  it  reads  SINDEN  for  informa¬ 
tion  on  the  sine  wave. 

MAMELIST/SINDEN/NBEAM,  .m 

NBEAM  IS  THE  NUMBER  OF  CYCLES  PER  X-CALCULATED  REGION 
AWL  IS  THE  AMP/WL  OF  THE  SINUSOIDAL  VARIATIONS 
IFLOW  »  IS  (GDL.780-^DL.793) 

The  field  can  have  superimposed  on  it  a  different  number  of  mesh  points. 
The  spacing  between  two  adjacent  points  does  not  change  unless  RGRD  is  called. 
Just  the  number  of  points  in  the  mesh  changes.  If  the  number  of  points  is 
increased,  RGRD  adds  zeros  to  the  outside  of  the  existing  region.  This  option 
reads  namelist  REGRID 

NAMELIST/REGRID/NGRD 

NGRD  IS  NO.  OF  FIELD  POINTS  ACROSS  REGRIDDED  DCAL 
IFLOW  »  16  (GDL.390-^DL.406) 

In  this  IFLOW,  no  subroutine  is  called  and  no  input  is  read.  The  field 
and  coordinates  are  written  format  to  TAPE  4  in  cards  to  be  punched. 

IFLOW  »  17  (GDL.559-K3DL.557) 

Quiescent  thermal  gradients  are  imposed  by  this  option.  Namelist  THR^’L 
is  read  and  subroutine  THERML  is  called. 

NAJfELIST/THRML/ALPHAf4,  CONMIR,  ALPHAG,  RHOGAS,  TAU,  TIN,  REFMIR,  CONGAS 
THRML  IS  THE  NAMELIST  FOR  BOUNDARY  UYER  THERMAL  LENS 
CALCULATIONS 

ALPHAM  *  MIRROR  DIFFUSIVITY  (CMZ/SEC) 

CONMIR  »  MIRROR  THERMAL  CONDUCTIVITY  CWATTS/CM-SEC) 

ALPHAG  »  THERMAL  DIFFUSIVITY  OF  GAS  HEATED  BY  MIRROR 
(CM2/SEC) 
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CONGAS  a  THERMAL  CONDUCTIVITY  OF  GAS  HEATED  BY  MIRROR 
CWATT/CM-SEC) 

RHOGAS  »  DENSITY  OF  GAS  HEATED  BY  MIRROR  (GM/CC] 

TAU  »  BEAM  ON  TIME  FOR  BOUNDARY  LAYER  GROWTH  (SEC) 

TIN  »  INITIAL  TEMPERATURE  OF  GAS  §  MIRROR  (DEG  K) 

REFMIR  ■  MIRROR  REFLECTIVITY  (OBTAINED  FROM  MIRROR 

INPUT) 

THERMAL  MAY  BE  APPLIED  AFTER  ANY  MIRROR  TO  ALTER  THE  GAIN- 
PHASE  DUE  TO  HEATING  OF  THE  QUIESCENT  BOUNDARY  LAYER 
ADJACENT  TO  THE  MIRROR  SURFACE. 

IFLOW  *  18  (GDL.378-*GDL.389)  • 

With  IFLOW  =  18,  a  spider  obscuration  can  be  applied.  Subroutine  SPIDER 
is  called  using  the  information  read  in  '-/ith  namelist  SPITP. 

NAMELIST/SPIDR/NSPD,  WIDTH,  THETA,  XSPC,  YSPC,  DIH 

NSPD  »  NUMBER  OF  STRUTS  IN  SPIDER  (MAXa6) 

WIDTH  a  WIDTH  OF  SPOKES  IN  SPIDER 

THETA  =  .ANGLE  OF  INDIVIDUAL  SPOKES  OF  SPIDER 

XSPC  =  X- LOCATION  OF  CENTER  OF  SPIDER 

YSPC  a  /-LOCATION  OF  CENTER  OF  SPIDER 

DIH  a  hub  DIAMETER 

IFLOW  a  19  (GDL.366^DL.377) 

This  option  allows  for  the  application  of  an  axicon.  Subroutine  AXICN 
is  called  after  namelist  AXICON  is  read. 

NAMELIST/ AXICON/CAPF,  EXPAND,  ROC,  DISP,  TILT 

CAPR  IS  THE  OUTSIDE  RADIUS  OF  THE  ANNUUR  EXTRACTION  BEAM. 

(EXPA.ND.EQ.  .TRUE.)  MEANS  THE  BEAM  IS  GOING  FROM  CIRCULAR 
TO  ANNUUR  IN  CROSS-SECTION 

ROC  a  RADIUS  OF  CURVATURE  OF  THE  FIELD  IN  PHYSICAL 

SP.ACE 
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DISP 


=  DISPUCEMENT  OF  AXICON  FROM  CENTER  ALONG 


X-AXIS 

TILT  =  ANGLE  (RADIANS)  OF  AXICON  TILT  FROM  DIRECTION 

OF  PROP. 

IFLOW  =  20  (GDL.347-*GDL.365) 

This  option  propagates  an  unrolled  annulus.  After  reading  in  namelist 
RPROP ,  it  then  calls  subroutines  RSTEP  to  perform  the  propagation  and  POWR 
to  determine  the  power  after  propagation. 

NAMELIST/RPROP/DELZR.  DELZTH,  WINDOX,  WINDOK 

DELZTH  IS  PROPAGATION  DISTANCE  FOR  THE  RADIAL  COORDINATE 
DELZTH  IS  PROPAGATION  DISTANCE  FOR  THE  ANGUUR  COORDINATE 
•**(DELZR  .NE.  DELZTH)  MEANS  YOU  ARE  MAKING  .4N 
EQUIVALENT  COLLIMATED  BEAM  PROPAGATION  STEP 
IN  R-THETA  COORDINATES*** 

WINDOX  IS  X-SPACE  DATA  WINDOW  FOR  FIT 

WINDOK  IS  K-SPACE  DATA  WINDOW  FOR  FFT 

IFLOW  =  21  (GDL.329-K3DL.346) 

This  option  allows  for  the  removal  of  the  center  of  the  beam  which  is 
then  stored  on  unit  20,  or  it  can  allow  for  the  addition  of  a  field  read  from 
unit  20  modified  by  a  phase  change.  This  work  is  all  done  in  subroutine 
FIELDS  using  the  information  read  in  from  namelist  CENTER 

NAMELIST/CENTER/DSM,  REMOVE,  PHIARB 

DSM  IS  THE  DIAMETER  TO  BE  RE^«VED  AND  LATER  ADDED  TO  THE 
MAIN  BEAM 

REMOVE  FLAGS  THE  ACTION 

■TRUE.  IF  THE  CENTER  PORTION  OF  THE  BEAM  IS  TO  BE  REMOVED 

.FALSE.  IF  THE  REMOVED  PORTION  IS  TO  BE  ADDED  BACK  TO  THE 
BEAM 

PHIARB  IS  AN  ARBITRARY  PHASE  CHANGE  ADDED  TO  THE  CENTRAL 
PORTION 

126 


P 


IFLOW  a  22  CS0Q77CYl.169-t.S0077CYl.181) 

This  option  flips  the  field  about  the  x-axis.  No  input  is  required  and 
no  subroutines  are  called. 

Argtunent  List 

IN  -  INPUT  UNIT  FOR  RESONATOR  DATA 

RESTRT  -  NEW  OR  OLD  RESONATOR? 

.\BC  -  PARAMETER  ARRAY 

NITER  -  CURRENT  ITERATION 

IB  -  INPUT  UNIT  #  OF  OLD  FIELD 

IFLAG  -=  1  TRANSFERS  TO  OLD  ENTRY  POI.NT  -  READS  FIELD  FROM  IB/ 
CONTINUES. 

ABC  and  NITER  can  be  redefined  by  this  subroutine. 

Cooimon  Variables  Modified: 


The  common  variable  not  modified  by  GDL  are: 

WL,  NPTS,  NPY,  RADCUR,  WNOW  and  NREG.  Note  that  NBC  is  modified  by  its 
equivalence  with  IGDL  and  IDIR. 

SUBROUTINE  GDL  76/176  OPT-1  FIN  4.6*452  04/27/79  12.23.47 


SutfMUwrim  auc(  tt«<MtSTHT«4dC>tt>IIC>«»tM*tFt«0)  (tUL  2 

c  o*>rtc*L  CAkCvH.* r  lUNS  Huurixu  houtink  ttuc  j 

c  sr  ilf  rwc  iNwur  ikcuitirMui rwc  us&h  insthucis  this  Huunwe  « 

C  TO  Olwecr  THfe  CALCULAdUN  UI>riCAt.  t^FbCTS  OF  APtWIUHCS*  OUL  i 

C  nlHMUNS*  CAVlTtbS*  brc«  WUk  a 

C  IFLAOsl  rHANit^CMS  TO  OCU  AUTV  tNlWT  PUINI  OUL  t 

c***»***«««««*«*««««*«*«««»«****«««********«*«****««»*************«*«**c  (iuu  a 

C  In  is  unit  CUNrAlNIiKi  INPUI  UAIA  FUH  kUwF  lOUHAT  lUN  (ML  9 

C  WESTHI  IS  CUNTWUL  FVH  WtSTAMlIKKi  CAkCULAt  IONS  FKUM  PNEVIUUS  HUN  UUk  lU 

C  •  .THUt.  IF  HbStAHTlNI*  UOk  U 

C  *  .FAkSE.  IF  OUT  UUk  12 

c (#uk  1 3 

C  WUk  1* 

UtvCk  2t  CUtCFIk2tCFFk  UUk  IS 

CUMNUN/NfekT/CU(16ja*) tCFikll«»12) fA(12a> tHktNPTSfNPrtUHAtUHT  UUk  16 

COMMUN/NHHHOP/HAUCUHtANaAtANOr  (>Uk  17 

CONNON/  «At  /  «NUM*NHEU«HAPTH  (>l)k  10 

COMMON/21P/IkAVf INlHf lSrbH<NUS>iAH*lHrTtirHAN«ITNHMk>lAXtlHSIPt  <M)k  19 
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A  ICUrtMLr.lUAilTHilC&KtNCI 
COMMON  /UAZ/  AMtr(JOfZU)<  NOCtiaO)*  SAVttlO) 

COMMON  /INIIL/  INT 

OIMENSION  lOlHIAtZAI  <l(iOL(V9>«AbC(UtZO>VI  tCFFL  ( 16  jOA)  .  lUbK  ( At  91  • 
AT AY (26Z>  f AK( IZB) «AOUM< IZO) •bMMOHl 1U> • I ITLE I2U) tCF ILZ ( 16J6A) « T 1 128) 
AtZLi  (12)  'ZLOI 12)  i(>NOre(2U)  •(>nUT(bU«2U)  <lnfcTA(6l  tCFR(A)  tAFNO(  A)  t 
X  USMM(2U) tMMV (bO) •MM1A(2UI •MCUHVt(A) tOSMlA) •  TLT (A) • ICAVZl 16) 
01HEN810N  lP(.Tb(bO) 

complex  CFFLtCFlLZtCUtCFlL* CPLN T^CFACTTiCUO 
LOlilCAL  INiTtHESTHrtAMY  •  bXPANOtAPNU  «  PEMOYttHMV 
EOUlVALENCE  (NbCd)  •IGOL(l)  >  t  (N8C(100)«1U1H(1>1) ) 

EOuIVALENCE  (CFlL(l)>CFFL(l))t(CFlL2(l)tbU(l))<  ( ICAV t ICAYZ ( 1 ) ) 
DATA  IFLOM* TITLE  /9<20AAH  /  .  IPLOTS  /  0  / 

OATA  NCAVNO«lLR<NSThfNPLr«2PMUPI«2PNOPO  /U< 1 • 1 t Ot2AO«/ 

DATA  AN6AXtANaTY«HAtiCtOlAUur>UlAINtANPOS«TMPOS<MMlH«UELTAtOXitrF 
X  /O.Ot  O.U*  U.O*  0.0*  0.0*  U.O*  0.0*  1.0*  0.0  •  0.0/ 

OATA  HANULS*  OOUTY*  OINY.  PHlAST 
A  /U.O*  0.0*  0.0*  0.0/ 

OATA  0EL2*  HOCUMV*  alNUOA.alNOOK.UFb*!! FH.IIPS 
X  /O.O*  0.0*  U.l*  0.1*  1*  0*  0/ 

OATA  OOOl*UIN*APUS*rPOS*rOUT*yiN/  6*0.0/ 

DATA  OldEAM.OOMLAP*  OXXH*  UYTN*  MAXlT*  AVCUSM  /A*0. 0* 1 *0.0/ 

OATA  CUSMF/l./ 

OATA  HAOPLT/0.0/ 

OATA  ALFAtSCPt  rtMNO«2L£N*NbrbPS*INPr*NPHUP*AXlAL/5A0.0*l>l *0*0.0/ 
OATA  OT  /O.O/ 

OATA  IMEAO*  l«MllEt  lUMO*  UUU  /0*0*1*0/ 

OATA  rPANS*  AMA(>  /i.Otl.U/ 

OATA  NdEAM.AaL  /OtO.O/ 
data  NOPU  /2/ 

DATA  ALPMAM.CONMIM*  ALPMAO.xnuOAii*  )  AU*  T  lN*MEFMIH«CON(iAS 
A/6A0.U*1.0*U.a/ 

DATA  CAPMfbAPANUtPOC  /iU . • . iMuE. *0.0/ *  018P i T IL (/O. *0./ 

OATA  OELZH.  OClZ^m*  alNOOX*  alNOOK 
A  /O.O*  0.0*  0.1*  0.1/ 

DATA  OSM  .  HENOVE  •  PnlAMU 

A  /O.U*  .THUE.  •  0.0  / 

(JATA  01H*xSPC*r6PC*«lOTN«  rnbi  A*NbPO/i0.lA*0.*0**.A2J**12U** 

X  O..AAO.t2/ 

namelist/  CUNTHL  /  IFLOatOnUrEtlPLUTS 

IFLOW  CONTwOLS  TmE  FLOa  OF  CALCULAllONb  rMMOO(»«  (iOL 
a  1  CAVITT  element.  OtAUS  CAY  I Y I .CAY T Y2 
a  /  mIhHUP  element.  McAua  mihuh 
a  J  YAMP  element.  HEAUS  PMUPOT 
a  a  APEhTUME  ELEMENT.  PEAUb  APIUM 
a  b  ThEHMAL  BLOUMINO*  MEAUb  ULUOM 

a  6  INTEHPOLATE  FIElU  OYEH  SMALLEH  AMEA.  PEAUS  CUIUUT 
a  7  TEST  FOP  CONVEP(iENCE  OF  ITEPATIUN*  NO  InPOT 
a  8  PLOT  FIELO  UlSTPloUl  ION*  PEAUS  IDLE 
a  9  PETUPH  LUHTPUL  TO  CALLiNO  PMO(>MAM.  NO  INPUT 

a  10  PEAU  ANU/OH  aPl TE  CU  UN  UlSK*  PEAUS  UISAll 

a  11  AERO  alNOOa  P.M.b.  PHASE  MODEL*  NO  INPUT 
a  12  SCALlNO  routine. ..multiplies  ENIIHE  FIELD.  HEAUS  MULT 
a  IJ  flips  The  FIELU  AHUUT  THE  Y-AAlS*  NO  INPUT 
a  lA  blNUSOUlUAL  UCNSlTY  YAMlAllUNb*  READS  SINUEN 
a  IS  HESHIUS  FIELD  To  LAH6EM  SIZE*  PEAUS  PEIMIU 

a  16  CU  PUNCmEU  ON  CAMUS*  NO  INPUT 

a  17  MIHROH  ImEPMAL  6L  MODEL*  PEAUS  THHML 
a  18  SPIDER  ROUTINE*  PEAUS  SPlUR 
a  19  AAICN  PUUTINE.  PEAUS  AX ICON 
a  20  PPOPAGATE  IN  H>TMEIA  SPACE*  READS  PPNOP 
a  21  REMOVES  OR  AOUS  8ACK  SEAM  CENTER.  READS  CENTER 
a  22  FLIPS  THE  8EAM  A8UUT  THE  A>AAlS*  NO  INPUT 

IPLOTS  IS  The  PRINTER  PLOT  SELELTOM.  IPLUTSaAbCOE  OMERE  Aal  SELECTS 
p-tmeta  pluts.  asi  SELECTS  ISO  Intensity  plot  .  ca|  selects  a  axis 
PLOT,  oal  SELECTS  DIAGONAL  PLOT*  AND  Eal  SELECTS  Y  AXIS  PLOT.* 
example— >lPLOTSa|0<71  SELECIS  ISO  INTENSITY  ANO  Y  AXIS  PLOTS  IN 

x«Y  coordinates* 

namelist  /CAVTYI/  NCAVNO.ILR.NSTE.nPLT.ZPROPI.ZPROPO 


bUL 

OUL 

(aUL 

CIUFLA 

(iUL 

ClUFLA 

bUL 

(*UL 

(iUL 

bUL 

CIUFLA 

bUL 

bUL 

bUL 

bUL 

(MJL 

CIOASTG 

CIOASTG 

bUL 

bUL 

SOAPH 

bUL 

CYCLES 

bOL 

bUL 

bOL 


bUL 

bUL 

GUL 

SUU77CY1 

bUL 
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toOL 

nCAVNU  Ib  Tnfc  NUMbtH  ASSIbnfcO  ru  CAVlIY  FOH  [UCNr  IFiCAT  lUN  liOL 

ILR  INOlCATeS  DIRECT  ION  OF  FifeLO  THHOUtoH  CAVITY  OOL 

a  -1  HltiMT  TO  LEFT  (>UL 

a  *1  left  to  RI(iHT  ttUL 

NbTC  CONTROLS  tyre  OF  VAHR  CUUE  bETaEEN  btUMENTS  bOL 

a  1  constant  mESH  aUH  SfeTUR  bOL 

a  d  VANIABLE  NESH  alTn  SETUt*  (EAITS  VAMP  Al  END  OF  ELEMENT)  bUL 

a  J  variable  MESm  aim  SETUP  IHEMAINS  IN  VAMP)  bOL 

a  a  USE  EAISIINb  PHUPabATlNb  MAImIX  (EXITS  VAMP)  bOL 

a  S  USE  EXIST INO  PROPAfiAilNb  MATRIX  (REMAINS  IN  VAMP)  bUL 

NPLT  CONTROLS  INTERMEOIATE  PHiNTOUT  FOR  CAVITY  bUL 

a  ONO  printout  bOL 

a  1  print  field  before  AnO  AFTER  bAiNt  ANO  bAIN  CO'EFF  bUL 

2PROPI  IS  PROPAbATION  DISTANCE  FROM  PHEVlUUS  DPT.  ELEMENT  TO  CAV.  bUL 
EPROPO  IS  PRUPAbATION  DISTANCE  FROM  CAV.  TO  NEXT  OPTICAL  ELEn£nT  bOL 

bUL 

NAMELIST/MlRUR/ANbXX.ANbYV.NAUC.UIAUUT.UIAIN.XMPOS.YMPOS.RMIRt  bUL 

X  DELTA.DISTF.UOuTT.DINV.RANULS.PMIAST  CIOASTb 

C  (*UL 

C  ANbXX  IS  tilt  In  X-UIRECTIUN  •  RAUiANS  (HRT  OPT.  AXIS)  bUL 

C  ANbYY  IS  tilt  in  T>DIRECriuN  •  RAUIANS  <NNT  OPT.  AXIS)  bOL 

C  RAUC  IS  RADIUS  UF  CURVATURE  OF  SPHERICAL  MIRROR  bUL 

c  oiAoui  IS  Outside  diameter  of  rihrur  sol 

c  DiAiN  IS  Inside  diameter  of  hirnur  bUL 

C  XMPOS  IS  X«0ISPL4CERENT  of  MIHROH  FRUM  optical  axis  bOL 

C  YMPOS  IS  Y-UISPLACENENT  of  MIRHUR  FROM  OPIICAL  AXIS  bOL 

C  RMIR  IS  reflectivity  of  MIhRUR  bOL 

C  delta  is  CENtER'TO-EDbE  OlsIURlIUN  FACTOR  (CM)  bUL 

C  DISTF  is  mirror  DIST.  factor  (DEFLEC)IONaDISIF*ia(l.0-RMIR) )  bUL 

C  HANULS  is  OUTSIUt  RAUIUS  UF  ANNULAR  BEAR  (IF  APPLICABLE)  bUL 

C  OOUTY  FLAGS  THE  (YPE  UF  APERTURE  APPLIEO  -  SUAPR 

C  .£0.  0  •  CIRCULAR  aperture  UEF INEO  AS  ABOVE  SUAPR 

C  .NE.  0  •  rectangular  APERTUREf  UIAUUT  HIGH  (X)  BY  OOUTY  alDE  SUAPR 

C  OINY  IS  SIMILAR  TO  UUUTY  FUR  INSIOt  DIMENSIONS  SUAPR 

C  PmIaST  is  The  angle  of  iNCioENCE  UF  Tre  beam  —  DEbREtS  CiVASTb 

C  bUL 

namelist/  PHOPGT  /  0EL2«  RUCURVtUlNUUX.blNUUK. I IFbt I ITH. I IPS  bUL 

C  bUL 

C  OELE  is  PHUPAbAflUN  OISTANLE  bUL 

C  ROCURV  IS  RAOIUS  Of  CUHVATuRt  OF  PRASE  FRONT  bOL 

C  IF  ABS(HOCURV)  lT  U.S  use  RAOCUR  UF  PHEVlUUS  RIRRUR  bUL 

C  alNOUA  IS  X-SPaCE  UATA  alNuUU  FUR  FFT  bOL 

C  UlNOUR  IS  K-SPACE  UATA  RlNUUM  FOR  FFT  bUL 

C  UFO  IS  A  VAMP  CONTROL  PARaREIEH  bOL 

C  a  I  FOR  CONSTANT  MESR  bOL 

C  mi  FOR  variable  MESR  bUL 

C  IITH  IS  another  vamp  control  parameter  bUL 

C  a  0  NO  INVERSE  TRANFuRM  bUL 

C  a  I  INVERSE  transform  BACK  TO  REAL  SPACE  bWL 

C  bOL 

C  I  IPS  IS  for  CORRECTION  OF  PLANE  ANO  SPREREICAL  PHASE  FRONTS  bOL 

C  a  0  NO  CORRECTION  bUL 

c  a  I  PLANAR  CORRECT  ION  ONLY  bOL 

C  a  2  UUAURATIC  CORRECTION  ONLY  (NOT  OPERATIONAL)  bOL 

C  a  J  BOTH  bOL 

C  bOL 

namelist  /APTUM/  UUUTtUINtAPUS«VPOS*YOUT.YlN  SUAPR 

C  bOL 

C  OOUT  IS  OUTSIDE  DIAMETER  UF  APERTURE  bUL 

C  OiN  IS  iNSIoe  DIAMETER  DF  aperture  bOL 

C  XPOS  IS  X-OISPLACEMENT  of  APEMTUME  from  OPTICAL  AAIS  bOL 

C  yPOS  is  Y-DISPLACEMENT  UF  aperture  From  optical  AAIS  bUL 

C  YOUT  FLAbS  TmE  TYPE  OF  APtRTURE  APPLIED  -  SUAPR 

C  .ED.  d  •  CIRCULAR  APERTURE  DEFINED  AS  ABOVE  SUAPR 

C  .NE.  0  -  RECTANbOLAR  aPERTURE*  DOUT  HIGH  (A)  BY  YOUT  aiOE  (Y  SUAPR 

C  YIn  IS  similar  to  YOUT  FUR  INSIOE  DIMENSIONS  SUAPR 

C  bOL 

NAMELISI  /cutout/  DlBEAM.OvRLAP.OXXR.OYYR.MAXlT.AVCUSM.CUSMF  CYCLED 

C  CUSRFal.  FOR  NORMAL  LOADED  RESUNATOh  CUTOUT  CYCLED 

C  CUSMFaO.  AVOIDS  aRHlNU  FIELD  UN  d  ANO  AVUlUS  NORM.  FIELD  UNLOADED  CYCLED 


SB 

B9 

DO 

DI 

92 

93 
D4 
9S 
D6 
DT 
9S 
99 

100 

101 

102 

103 

lOA 

los 

A 

107 
I  OB 

109 

110 

111 

112 
113 
llA 
US 
116 
117 
iia 

IB 

19 

20 
21 

S 

U9 

120 

121 

122 

123 

12* 

125 

126 
127 
12S 

129 

130 

131 

132 

133 
13* 

135 

136 

137 
13B 
139 

22 

1*1 

1*2 

1*3 

I** 

1*S 

23 

2* 

25 

26 
1*6 

3 

* 

5 
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C  l>ut 

C  OidCAM  lb  THt  UlAMertM  OF  dfcAM  FoH  ntAT  lltHAHON  liUt 

C  UVXLAH  Ibt  UCAUCa  UVHLAH*Ula£An  t,Ot 

C  OxaH  lb  I'OblTiUN  OF  ITbHailvt  dtAM  MtL.  to  OPtlCAL  AAlS  OUL 

c  ovrw  IS  fHt  SAwe  ool 

C  nAXtr  tb  THt  MAX  MundtH  OF  lltHAriUNb  OUL 

C  but 

C  AVCUbM  AvtMAbbb  MHtvlUUb  Mbxl  ItbMAUuN  UuCSb  IN  r>ib  nuPb  bUL 

C  OF  i^AiPlL)  CUNVbHbbNCb***  a  u  NO  AVt  a.b  1Tb  mALF  ANU  nalF'  bUU 

C  bUC 

NAHetlSr/  t'uor  /  Tllut  t  kAOMUT  bOt 


lAd 

las 

Ibu 

ISl 

1!»<! 

Ibj 

194 

Ibb 

196 

I9F 

196 


C 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


TltLfc  lOENflUtb  Tut  MOblTlON  OF  EACH  STATION  HLOTTtU 
MAOPtr  CUNtNOLb  tut  ITKt  OF  Fi.01 

a  U.U  FUH  X«T  HLO  t  T  lN(i  (A'AXIS*  Y^AAlb*  OlAbONALl 
a  1.0  FUH  KAuIAL  HCOrriNO  aI  OAHIOUS  THtTAb 

namelist/  dLOUn  /  ALF'A.bCPttfHMOtALbN.NblEPSf  iNHT.NHMUP.AAlALfOT 

ALFA  a  MEOIUM  AttbOHdl lUN  COEFFICIENT.  CM>1 
SCP  a  MbOlOM  SPECIFIC  MtAT.O/bM^OES  K 
T  a  MbOlON  IEMPEPTOHE.  OEb  K 

PNU  a  meOIOM  oENSITY.  bM/CNd  (OH  THANbVEHSE  VEL.  IF  .bl .  1.) 

ZLEN  a  MEUIUN  THlCKNESb  ALONtt  OPTICAL  AXIS 

NPHOP  a  PHQPAbGGATlON  P AHAMETEH. . .bAMt  AS  NSTE  IN  CAVITY 

NbTEPb  a  numhEH  OF  ELEHEnTS  IN  SUbbYSTEM.  .GE.  1 

INPT  a  .lOE.  0  FOH  INTEHMfcUlATE  FIELD  PLOTS 

AXIAL  a  AXIAL  VELOCITY  (CH/SEC)  IF  bT  U.  OSES  AXlAL  bLOOMlNG 
or  a  6£AM  on  tine  FOH  tnbPNAL  bOY  LAYEP  GMOHTN  IN  TPANSIENI 
HLOUMING  CALCb.  IF  OT  bT  0.  OSES  THANSIENI  OLOOHlNb 

namelist/  OISKIT  /  IHEAU.  IWMIIE.  lOHO  .  lAOU 

IPEAO  IS  The  disk  NUM  To  be  HEAO  off  OF...lFaU...OON«(  HEAD 
laHlTE  lb  The  OISA  a  TO  bE  aHUTE  ON  aO,.,oON<T  aPlTE 

lOHO  IS  The  OHOEH  a  1,  PEAO  FIHST 
a«l«  mhUE  FImST 

lAOO  a  I  UPDATES  JbHXTE  SY  1  FOP  SUCCESSIVE  ITEHATIONS 

namelist  /  molt  /  THANSt  XMAb 

THANb  IS  transmission  of  ELEMENT 

namelist  /  SINOEN  /  NbEAM.  AML 

NbEAM  IS  The  NOMbEH  OF  CYCLES  PEP  X-CALCULATEO  PEblON 
AML  IS  TnE  AMP/ML  OF  TmE  SINOMSOIOAL  VAPIATIONS 

namelist  /HEGHlO/  NbPU 

NGPU  Ib  NO.  OF  FIELD  PoInTS  ACHOSb  PEGPIOOEO  OCAL 


namelist  /I  PPMt./  ALPH  AM  .  CUNM 1 P  •  ALPM  Ab  «  PMOb  AS  tFAO.riNtPEFMlH. 
XC0N6AS 


C 

C  THPMl.  IS  THE  namelist  FOM  bUONUAHY  OAYEH  TMEHMAL  LENS  CALCULATIONS 
C  ALPHAMa  MlNNUR  OIFFOSIVITY  CMbU/bEC 

C  CUNMIMa  MIRNUH  TMEHMAL  CONUUCIIVITY  MATTS/CM  SEC 

C  ALPHAGa  TMEHMAL  OIFFOSIVITY  Of  GAS  MEATEU  BY  MIHHUH  CMSO/SEC 

C  CONOAba  thermal  CtJNUUC ' I V I  T Y  OF  GAS  MEATEU  BY  MIHHUH  «ATT/CM>S£C 

C  RMOGASa  OEnSITY  OF  bAb  MEAtEU  BY  MIhHOH  bM/CC 

C  TAU  a  bEAM  UN  TIME  FOH  bOUNUAHY  LAYEH  bHUbTM  SEC 

C  TIN  a  INITIAL  TEHPEMATUHE  OF  bAS  6  MIRMOH  OEG  A 

C  REFMlMa  MIHHUH  hEFLECTIVIIY  IOBTAINEU  FPUM  MIHHUH  INPUT) 

C  tTMERMLCMAY  b£  APPLIED  AFTEH  ANY  MIPHOH  To  ALTER  THE  GAIN  -  PHASE 

C  OUE  To  heating  of  The  OOIESCEnT  bUUNOAMY  LAYER  AOJACENi  TO  THE 
C  MIHHOH  bOHFACE. 

C 


namelist/  SPlOH  /NbPU.alOTn.TMETA.XbPC.YSPC.OlM 
C  NSPO  a  NOMbEH  OF  STHOTb  IN  bPlUEH  (MAXab) 

c  MIUTh  a  mIUTM  UF  spores  IN  bPIUEP 

C  TnETA  a  ANGLE  OF  INUiVtOOAL  SPORES  OF  SPIOER 


bUL 

bOL 

bUL 

bUL 

bOL 

bOL 

bOL 

bOL 

bOL 

bUL 

bUL 

bUL 

bOL 

bUL 

bOL 

bOL 

bOL 

bOL 

bOL 

bOL 

bUL 

bOL 

bOL 

bOL 

GUL 

bUL 

bUL 

WL 

bOL 

GUL 

bOL 

bOL 

bOL 

bOL 

bUL 

bOL 

bOL 

GUL 

bUL 

bUL 

bUL 

bUL 

bUL 

bUL 

GUL 

bUL 

bUL 

GUL 

bUL 

bUL 

bOL 

bUL 

bUL 

bUL 

bUL 

toL 

bUL 


ISO 

160 

161 

16B 

16J 

164 

165 

166 
16T 

16a 

16« 

ITO 

ITl 

ITE 

1T3 

174 

ITS 

176 

177 
176 
1  79 
ISO 
IBl 
1S2 

163 

164 
IBS 
186 
IBT 
IBB 
1B9 

190 

191 

192 

193 

194 

195 

196 

197 

196 

199 

200 
2U1 
202 

203 

204 

205 

206 
207 
206 
209 
2X0 
211 
212 

213 

214 

215 


C  AbPC  a  X'LOCAIIUN  UF  CenIEp  OF  bPlOEM 

C  YbPL  a  Y-LUCAriOn  OF  CENIEM  OF  bPtUEH 

C  OIH  a  hob  OIAMETEP 

C 


bUL 

216 

bOL 

21  7 

bOL 

21B 

bUL 

219 

130 


nor>  o  rk  r»r>r>noortri  nnnnnnon  nnnonno 


NAnELISr  /  AAlCUi'i  /  CAHHit.AP'ANUpMUCpUiSf'priur 

GUL 

220 

c 

CAHM  IS  me  uursloe  wAutub  of  rHt.  annulah  exiMACiiON  ucam 

GUL 

221 

c 

cahanu  eu.  .roue.  oeANb  mt  atAP  is  guino  foum  cihculah  to 

GUL 

222 

1 

ANNULAH  JP  CHObS'btCf lUN 

GUL 

223 

p 

auc  0  OAUIUS  OF  CUHVAIUHfc  OF  THE  FlEwU  IN  ONTSICAL  SPACE 

GUL 

224 

f* 

M 

OISP  0  ulSPLACbPtPl  OF  oAtCUN  FOUM  CEN/EM  ALUNO  A'AAlS 

GUL 

22s 

P 

b 

c 

tilt  0  angle  (OAUl  ANSI  OF  AAICON  ULf  FWUM  OIHECTIUN  OF  POOP. 

V»UL 

i»Ut. 

22b 

227 

c 

NAMELlSr/  OPOOP  /  ueLZPpOtLZm.HiNUUApolNUOK 

GUL 

GUL 

22a 

229 

c 

OELiH  IS  PHOPAGATIUN  UlSrANCE  FOP  THE  HAUlAL  COOHOlNATE 

GUL 

230 

• 

OELZTH  IS  ppOPAGArioN  oisfANce  FOP  me  angulap  cooroinate 

GOL 

231 

z 

•**  oeL2P  .ME.  UEL^rH  means  ruu  APE  MAKING  AN  eUUlVALENT 

GUL 

232 

c 

•••  COLLIMATEO  dEAM  PPUPAGaTIOn  STEP  IN  P^ThETa  COOPUlNAlES  ** 

GUL 

233 

p 

NlNUUA  IS  A>SPACe  UATA  01NUUP  FOP  FFT 

GUL 

23a 

c 

I 

01NOUK  IS  A«SPACE  OATA  0iNUU»  FOP  FFT 

GOL 

GUL 

23S 

23* 

c 

namelist/  CENTEN  /  USMpPEMUVEpPHlAPb 

GOL 

GUL 

237 

23a 

z 

OSM  IS  THE  oiAPtrep  ro  ae  mepuveu  anu  lafep  aoueu  to  the  maingean 

GUL 

239 

c 

RtMOoe  FLAGS  THE  ACTION  <■ 

GOL 

240 

c 

pTHUE.  if  the  CEnTEP  POHdUN  OF  fHE  GEAP  IS  TO  BE  PEPUVEO 

GUL 

2*1 

c 

.FALSE.  IF  The  HEMOVEU  PUP I  ION  IS  TO  GE  AOOEU  BACK  TO  IHE  dEAM 

GUL 

242 

c 

PHlAPd  IS  AN  APblTHAPr  PHASE  CHANGE  AOOEO  TO  THE  CEnIPAL  POHIION 

GUL 

243 

:#•••* 

GUL 

244 

p 

y 

GUL 

245 

IF  (IFLAG.NE.OI  GO  TO  A/Sd 

GUL 

24b 

CALL  CPUriM(lSTHT) 

GUL 

247 

IGNAL01 

SUL 

24* 

HAPTH0O.I1 

GUL 

249 

SPPH0l.e/O 

GUL 

2S0 

CPCNT0O.U 

GUL 

2S1 

Msrep«o 

GUL 

2S2 

WHY  0  .TRUE. 

GUL 

2S3 

KAUTO  0  0 

GOL 

2S4 

NIT  0  NUEH 

GOL 

2S5 

ICNTLaO 

GUL 

2S* 

ANGXaO. 

GUL 

2S7 

ANGTaO. 

Gol 

2sa 

C 

CALL  ^ERU( ICAV«NCT) 

GOL 

259 

00  ITJ  UERUal.is 

GOL 

2b0 

1/3 

ICAVZIUEHOIaO 

GUL 

2bl 

C 

call  lEHUtGNOT  ( It  1)  .GNOr  OutdUl  1 

GUL 

2b2 

00  l/«  UEHOalt^U 

GOL 

2b3 

00  174  OXEHOaltSO 

GUL 

2b4 

If* 

GN0r(J2EP0f 13EP0>  a  0. 

GUL 

2bS 

00  3  Ibal.lU 

GUL 

2b* 

3 

SAWEdbl*!. 

GUL 

2*7 

NUM  a  NPIS0NPY 

GUL 

2ba 

z  ♦< 

GUL 

2b9 

C 

BEGIN  UIPECTION  OF  OPTICAL  CALCULATIONS 

GUL 

270 

CIUUU 

CALL  <ER0(GNOTE(UtG<'«0TeUUI) 

GUL 

271 

iUUO 

OU  17b  UEPOalt^U 

GUL 

2/2 

t/b 

GiYU  TE 1 1  ZtPO  1  ad  • 

V>UL 

2/3 

HEAOdNtCONTHLI 

2/4 

IGATE  a  u 

GUL 

2/S 

PEAU  (iNtlZAJI  oNUtE 

GUL 

27/ 

1^*3 

FOPMAI  IA0A4) 

bUC 

2/a 

ICNTLalCilTL*! 

GUL 

2  79 

IPLTSdCNTLl  a  iPLOfS 

SUU77CY1 

Ibb 

00  dUd  la| ,dU 

GUL 

2dU 

gnut  dCNiLtUaGNored) 

(fUt 

2dl 

continue 

GUL 

2S2 

MHlTEIb.dUl) tGNUr 1 iCNTLi 11 t lat tdOl 

2*3 

001 

FOPMAI t//lX.jO(JMa»a|/SX.dUA4/lX.JGtOH***l 1 

GUL 

2*4 

C 

CALL  CPO IIP (INCH) 

GUL 

2*5 

c 

riMEar ISIPT^INCPI/IUO. 

GUL 

2*b 

c 

ISTPTal  tCH 

GUL 

2*7 

c 

IFINlTEP.eo.ll.UlHNITerbtlilgdl  I  IMe 

(iUI. 

2*tf 

CiUOZ 

FOPMAr l//20Xt27HCPU  riME  since  LASI  CONTPLa.Fa.d//) 

GUL 

209 

IlH  a  ITM*! 

GUL 

290 

INIT  a  .IRUE. 

GUL 

291 

lOOLdTMl  a  IFLOH 

GUL 

292 

131 


o  o  o  on 


AHPLT  AXICUN 

140  UxaUA*! 

If  (.rMT.lNlD  GO  TO  191 
MtAOlINf AXtCUNI 
CHMlUXlaCXfH 
Xf>l<tO<XAX)aex»'ANO 
MCuMveilAXIatlUC 
TurdAX)  «  Tluf 

Obl'lXAA)  a  UXS^* 

191  call  AX1CN(C»<M(1AX)  tAPNOdAXI  tt^CUMV^  ( 1  AX)  tOSl'dAX)  t  TLT  dAXI  *r> 
GO  TO  999 


APPLY  SPXOEH  OdSCUMATlON  rMANGMlitiXXOM  FUNCT  XUM  TO  TNfe  COMPLEX 
flELO 

lao  PCAUiXNfSPiuHi 

aMlTt<6«lttl)aX0rH«NGP0tXGPL<TGPC«OXn*  dMETAdSPU)  tlSPOaltMilPU) 

181  fUHMAr(2AHU  SPlOtM  mOOEl  APPLXEUI •/•ISH  STHUT  alOIM  a«GX^.JtlEM 
INO.  OF  SIPur&a,i3»Un  X«T  LLMlEHa,GXE*A*Xn« tGlZ.** 

EXSh  MUtt  OlAMtlEP  a«Gl^.«/9H  fHCTAG  a*6«lX«a) 

MSPO  a  MlN0(NSPU«8i 

182  call  SPIueP(aIOrM«T«tTA..9iPO»XSPC»TSPC»OXM) 

IGNALaa 
GO  TO  999 


C  aPlTE  complex  FIELU  ON  PUNCM  CAHOG 

160  BP(TE<b«163l 

163  FOPMATObHU  CO  NAS  OEEN  aHlTTEN  ON  PUNCM  CAMOS) 
aHirE<4.16«l  (GNUrdCNTL*!)  dai.^U) 

164  F0MMAT(2UA4I 
00  161  jaltNPT 

00  161  lal,NPTGt2 
I9£F  a(J-l)4NPT8 
OUMlaMEALICUdPfcF*!)  1 
OOM£laAXMAG(CUdHCF*X)  I 
0UM2aM£ AL  (Cud PEF « X *  1 )  ) 

0UMe2aAXMAG<CUdHCF*X*l)  ) 

161  aHXrE(4«162)  xd)  •X(UI  «OUHl<UUMEl,Ad*X)  (XU)  •nuM2iOUME2 

162  FOPMAT (2f 8.2t2ei2.4«2F8.2t2bX2.4l 
IGaTE  a  1 

GO  TO  3623 


C  APPLY  SXNUSOlUAL  PHASE  VAHlATlON  TO  COMPLEX  FIELO 

420  IF  (.NOT.INXD  GO  10  421 
P£aO  (XNtSXNOENI 
42X  aPlTE  (6t4221  NdEAMtAML 

422  FOPMaT  (/48H  SXNOSOIOAL  OtNSXTT  FIELD  APPLIED  TO  THE  8tAH  /2»M 

X  a  OF  cycles  pep  XCALC  tIS»26M  AMP/BL  OF  VAPXATIONS  a, FT. 3  ) 
AS  a  2.aJ.141S92  •  AML 

A6  a  2.  •  3.141S9P  •  hheam  / (NPTS* (X ( 2) -X ( 1 J ») 

00  423  lal.NPTS 

CFACTTa  CEAP(CMPLA(0.«  A9  •  SXN  lA6*Xd»)>> 

00  423  Oal.NPT 
XJ  a  I  ♦  (D-l)aNprs 

423  CO  (ID)  a  CUdD)4CFACrT 
GO  TO  999 


C  APPLY  GOL  CAVITY  TO  COMPLEX  FIELD 

lU  ICAVa(CAV*l 

IF(.NOT.  XNXT)  GO  TO  XX 
PExOdN.CAVTYl) 

XOXPdtICAV)  a  nCAVNO 
I0XP(2<ICAVI  a  UP 
iOXP(3tICAV>  a  nSTE 
X0XP(4.ICAv)  a  nPLT 
ZLXdCAV)a2PH0Pl 
2LOdCAV)a2PNOPO 
11  NEaCAV  a  0 

NCS  a  MAXOdUlRdtlCAV)  (NCT) 

XF (NCS.GT.nCT)  NEwCAVal 
NCT  a  NCS 

BPlTE  (6tl2l  lOlPdtXCAV) f XUXP(2tXCAV) .X0XH(3tXCAV) 


GOL 

36* 

GDL 

367 

GOL 

368 

GOL 

369 

GOL 

3/0 

GOL 

3/1 

GOL 

372 

GOL 

3/3 

GOL 

3/4 

GOL 

3  7S 

GOL 

37* 

GOL 

3/7 

GOL 

3/8 

GOL 

3/9 

GOL 

380 

GOL 

3SX 

GOL 

382 

GOL 

383 

GOL 

284 

GOL 

386 

GOL 

38* 

GOL 

36/ 

GOL 

368 

GOL 

369 

GOL 

390 

GOL 

391 

GOL 

392 

GOL 

393 

GOL 

394 

gOL 

39S 

GOL 

396 

GOL 

39/ 

GOL 

396 

GOL 

399 

GOL 

400 

GOL 

401 

GOL 

402 

GOL 

403 

GOL 

404 

GOL 

40S 

GOL 

406 

(>OL 

40/ 

gOL 

408 

GOL 

409 

GOL 

410 

GOL 

411 

GOL 

412 

GOL 

4X3 

GOL 

414 

GOL 

41S 

gOL 

416 

GOL 

41/ 

GOL 

4X8 

GOL 

4X9 

GOL 

420 

GOL 

421 

GOL 

422 

GOL 

423 

GOL 

424 

GOL 

426 

GOL 

426 

GOL 

427 

GOL 

428 

GOL 

429 

GOL 

430 

GOL 

431 

GOL 

432 

GOL 

433 

GOL 

434 

GOL 

436 

GOL 

436 

GOL 

437 
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12  FUriM«r  (///16f1  CAVITY  NUHHtHtli>l/H  UlHfeCTIUN 

.12  .29H 

60L 

*3« 

X  PHO»<AUATlMi  PAMAMETER  ti2  /I 

6UL 

*39 

4R(rE(6«lSt  ZLKlCAVIf  ZLUdCAVI 

60L 

**0 

lb  FORMAT (AtfHOAOU I riONAt  PMOHAbAIION  OISTANCES  AT  CAVITY 

ENOS/ 

6DL 

**l 

X  lX.4nZLlatbl2«b>eA<AMZLOa«(*t2.SI 

60L 

**2 

call  CAVirY(101M(l.lCAV>ilUtH(2«lCAVI«N£aCAVtINlT«imH<J<lCAV) tlN« 

Sul 

**3 

X  HESTHTt  lOlHIAt  ILAVI  iZLl  UCAVi  iZLOllCAV) ) 

60L 

IF(I|)lR(JtlCAV)  ,Lb.J)  INTal 

60L 

**5 

00  TO  000 

60L 

60L 

**7 

READ  ANO/UM  aMlTE  COMPLEX  FlfeLU  ON  OIMECI  ACCESS  FILE 

6UL 

**« 

lUU  NOS  a  NOS  *  1 

60L 

44*# 

IF  (.NOT.INin  00  TO  101 

60L 

46tf 

REAOdNtUlSAlTI 

6UL 

*91 

lUSKIliNUS)  a  IHEAU 

60L 

*92 

IUSK(2tN0S)  a  ItiRUE 

6UL 

*93 

10SK(J«NUS)  a  lUMU 

6UL 

4*i4 

tOS«((a*NUS)  a  UOO 

6UL 

*95 

00  TO  lOT 

6UL 

*9« 

lUl  IHEAO  a  lOSKd.NOS) 

6UL 

*97 

lUSRI2tNJS)  a  mSK(2<N0SI  •  IUSK(A»NUS> 

6UL 

*96 

laHlTE  a  10SK(2iNOSi 

60L 

*99 

lORO  a  lOSK(J.NOS) 

60L 

460 

107  IF  (IHEAO. EO.O. OH. 1(JHU«£0.-1)  60  TO  102 

60L 

*61 

HEAO  (IREAOI  (CU(U).IZai.NOttl.A.OMA»OHY. NITER 

60L 

*62 

4HtTE(6.10Sl IHEAO 

6UL 

*63 

105  FOHMAT (//10X.26HCO  HAS  SEEN  HEAO  FROM  UNtT.IJ//) 

60L 

*6* 

HEalNO  IHEAO 

60L 

*69 

102  IF  (laRIlE.tO.U)  00  TO  lOO 

60L 

466 

«HITE  (laHITE)  (C0( U1 < IZal.NOSi .XtOHA.OHY.NITEH.SAVE 

60L 

*67 

aHITE(E«106l  IWHlTE 

60L 

«6B 

106  FOHMAT (//IOX.27MCO  HAS  BEEN  VMITTEN  ON  UNIT. 13//) 

60L 

*69 

HEalNO  IMHITE 

60L 

*70 

103  IF  (IHEAO. EO.O. OH. lOHO. £0.1)  oO  TO  999 

60L 

*T1 

HEaO  (IHEAO)  (CUdZ)  .Uai.NOBI  .A.OMA.OHY.NITEH 

60L 

*72 

VHITE(6.10S) IHEAO 

60L 

*73 

REalNO  IHEAO 

6UL 

*7* 

00  TO  999 

60L 

*75 

SOL 

*76 

APPLY  AEHOOYNAMIC  41N00H  TO  COMPLEX  FIELO 

60L 

*77 

3*0  aHlTE  (6.3*1) 

SOL 

*7# 

3*1  FOHMAT  (//7*h  AEHO  VlNOUa  HUOEL  HAS  BEEN  APPLIED. . .HMS  PHASE  OIST 

SOL 

*79 

XOHTION  IS  The  MOOEL  /) 

sUL 

*«0 

CALL  AEHOW(CU.NprS.NPY) 

SOL 

*ai 

60  TO  999 

SOL 

*(12 

SUL 

*43 

APPLY  FIELO  SCALlNU  FACTOH 

(3UL 

*«* 

3S0  MLfaMLT*! 

SUL 

*«9 

IF  (.NOT.  INIT)  60  TO  3S1 

SUL 

*46 

hEaO  (IN. MOLT) 

SOL 

*47 

ABC(l.MLT.9)aTRANS 

SOL 

*44 

ABC(2.MLd9)aXMAb 

SOL 

*49 

3S1  MHtTE(6.362)  AdC(l.MLT.9l  .AtlC(2.NLT.9» 

SOL 

*99 

STHANS  a  S0Hr(ABC(l.MLT.9l)/A«(C(2.MLT.9l 

SUL 

*91 

3S2  FOHMAT  (/*3m  the  FIELD  MAS  BEEN  SCALED  BY  THE  FACTORS 

.2Fa.3/l 

SUL 

*92 

00  3S3  lal.NOB 

SOL 

*93 

3S3  CU(l)  a  CU(1)*STRANS 

(ML 

*96 

00  3S7  1  a  l.NPTS 

SOL 

*95 

3S7  X(I)  a  X(I)  •  ABC(2.MLr.V) 

SOL 

*96 

RMIRH  a  A8C(1.MlT.9I 

SUL 

*97 

16NAL  a  S 

SOL 

*94 

60  TO  999 

SUL 

*99 

SOL 

500 

HAKE  PHlNTEH  PLOTS  OF  COMPLEX  FIELO 

SUL 

901 

SO  IPTTalHfT.l 

SUL 

902 

IF  (.not. INI T)  60  (0  S2 

SOL 

903 

HEAOdN.PLOT) 

SOL 

90* 

HEAO  (3.12*3)  title 

SUL 

905 

DO  03  NOaj.^U 

SUL 

906 

S3  APLTdPI(.HU)aTirLE(NH) 

sOL 

90  7 

S2  nHITE  (6.B*I  (APLTdPTT.NU) .Nwal.^O) 

SUL 

904 

w 


04 

FOHM«r  (lHlt30A<2UA«  //I 

GDL 

SU9 

!»•  (WAUPLI  .EU.O.U)  CAUL  IHLill  Hill) 

GUL 

SIO 

IF  (H4U)>Ur.NE.0.t))  CALC  D^UvlT  <11111) 

GDL 

Sll 

IF  (.NUr.lNlT)QO  ru  '10 

GUL 

S12 

su  ru  luuo 

GUL 

S13 

GUL 

Sla 

flip  the  CUM)>I.EA  FltLU  AMUur  IhE  r«AAlS 

GUL 

Sis 

J«0 

iNP  >  NPr5  /  2 

GUL 

916 

aPITE  (6<361) 

GUL 

SIT 

361 

FOwMAK/bEM  THfc  FUlO  nAA  JU^I  UEEn  FLIPPED  ASUUT  fHC  yAX16  \/) 

GUL 

S10 

DO  362  jaliNPY 

GUL 

S19 

OU  362  laltNP 

GUL 

520 

12  a  I  •  (J-1)  •  Mprs 

GUL 

521 

13  a  1  -  1  ♦  NPIb  •  J 

GUL 

522 

CUO  a  CU  (12) 

GUL 

523 

CU(I2)  a  CU(I3) 

GUL 

526 

362 

CU(13)  a  CuO 

GUL 

529 

SU  TO  949 

GUL 

526 

*♦ 

SOU77CY1 

169 

365 

IF INPT.Nfc.NPrS)  UU  ru  999 

SUU77CY1 

170 

NPaNPrS/2 

SUU77CT1 

171 

aHirEI6*366) 

.SUU77Cri 

172 

366 

FaNMAr(/«6H  TmE  field  rlAb  dbEM  FLIPPED  ABOUT  THE  X*AXI6/) 

SOU77Cri 

173 

DO  367  lal.NPrii 

SUU77CT1 

176 

DU  367  JaltNP 

suurrcYi 

175 

I2aI»(J-l)aNPTS 

SOU77CT1 

176 

I3al«nO0«jaNPrS 

SUU77CY1 

177 

CUUaCU<I2) 

SOU7  7CT1 

175 

CU(I2)aCU(I3l 

S0077CT1 

179 

36  7 

CU<I3)aCU0 

SUU77CT1 

100 

GO  TO  999 

SUU77CY1 

IBl 

♦ 

GDL 

527 

apply  MIHPUP  THANSP1S61UIY  FUMCriUN  lU  THE  COMPLEX  FIELD 

GUL 

520 

20 

IMIR  a  IMIH*1 

GUL 

529 

IFl.NOr.  INir)  ttU  TO  21 

GUL 

530 

PEAOdNtMlMOH) 

GUL 

531 

ABCIltlMlM«2)a  ANUXX 

GUL 

532 

AtlC(2f  lMlH<2)a  XMOYY 

GUL 

533 

At)C(3«lMlPt2)a  HAUC 

GUL 

536 

A0C(««lMlH,2)a  UlAUUI/2. 

SUL 

535 

AeC(6<IMlHf2)a  UlAliY/2« 

GUL 

536 

A0C(6*IMlPt2)a  XMPU6 

GUL 

537 

ABC( r<IMlM.2)a  tnxub 

GUL 

530 

A0C(0«IMlPf2)a  HMIH 

GUL 

539 

A0L(9tlMlN.2)a  delta 

GUL 

560 

ABCdOf  lMlHt2)a  Dlb(F 

GUL 

561 

A0CdltlMlH.2)a  PANUL!i 

GUL 

562 

ABCdOt  lMlHta)auUUTY/2. 

SUAPH 

27 

AdCdldMIHt«)aUlNY 

SUAPH 

20 

AdCd2f  lM(Pt2)a  PHlAbI 

CIOASTG 

0 

21 

call  MIHPUH(A0C I ldMlH.21 .tttfC(2>lMlM>2) • ABC ( 3 1 IMIP.2 ) t A0C  Of iMIH<2 

GDL 

56  J 

1)  «AML(b<lMlM<2)  f  AttC(6«lMiM,2)  •  ABC  (  7 1  IMlHf  21  •  ABC  (0*  lMlHt2)  • 

GDL 

566 

2  ABCl9t IM1M<2) tABC) 10«lMiM«2) t ABL d i • IMIM t2) f ABC ( 10* lMIK>a) * 

GUAPH 

29 

3  Ai«Cdl*lMlHt«)«ABCd2*lMlMt2)) 

CIOASTG 

7 

PAPTNaXHC ( A* 1M1M*2) 

GUL 

560 

aNITE 16*23)  ( ABC (IMM* 1MIM*e) * IMMal* J) * ( ABC  1 IMM* 1MIH*2) * IMMaft* 1 1 ) 

SUAPN 

31 

23 

FunMATC/Z/BM  ANUXX  a,B12*A*0H  ANBYT  a*G12*A*17H  MADlUS  OF  CUMV  a,(i 

UUL 

560 

X12.4/  A3H 

SUAPH 

32 

A  PUSlTlOi*  OF  MIPHUH  UPIICAL  AX16  a  ( •FB.3*  lr1**FE.J*  IM)  / 

GUL 

550 

X22rt  MIHMUH  HEFLECIIVUY  a,)i0.3*BX/ 

GUL 

551 

A37M  MIHPUH  bPMEHtCAL  DlSTUMdUN  FACIUN  a,E12.A/ 

GUL 

552 

A37H  MIHNUM  Flux  DEP*  UISTUHTIUN  FACIuH  a,E12*A/* 

GDL 

553 

X37h  DUrSlDE  MADIDS  OF  ANiYULAP  BEAM  a*E12.A7) 

GDL 

556 

IF  (ABC(10«lMlPt2) (OT.-IU*)  GO  TO  0316 

EU1P0H 

1 

aMirEI6*3913) 

EDI PGM 

2 

3<413 

FUMMaKBBH  EDI  LUSB  ACCUUMrEO  FUM  !•«  ASSOCIATED  MIHMUH  CALCULATION 

EDI PGM 

3 

AS  ) 

EDI PGM 

4 

So  TO  3623 

euipgm 

5 

0316 

continue 

EDIPGH 

6 

I0NALa2 

GDL 

555 

IF (ABC(A*IMIH*2) •LE*U.U*ANU.ABC(S*lMlMt2) .EO*0.U) lONALaS 

GUL 

556 

MMIHHaABClH* 1MIH*2) 

GUL 

557 

GO  TO  999 

GUL 

550 
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c 

♦ 

GUL 

SS9 

c 

AHPLT  transmission  FUNCItUN  UF  A  UUltsCENr  ThEHMAL  (iHAOttNTS 

GUL 

SdO 

c 

NfeAR  A  HIRRUH  SURFACE 

GOL 

Sdl 

170 

ITrRMC  ■  IlhRML  *  1 

GOL 

Sd2 

IFUnUT.  lNir>  (iO  TO  171 

GUL 

Sd3 

RbAO(iN«lHHML) 

GUL 

SdA 

AUC  (III  rnNRI.  17)9  ACRmAM 

GUL 

SdS 

A8C(aiirnHMLi7)a  CONMIH 

GUL 

Sdd 

AaC(3«irRRMLi7)>  ALRRAU 

GUL 

Sd7 

AdClAilTHHMLf 7)9  KHUUAS 

GUL 

Sdd 

AdCIS*ITMHM(.i7)9  TAU 

GUL 

Sd9 

A8C(6«irnNMi.i7>9  riN 

GUL 

S70 

A8C(7iirnRMLi7)9  RbFMlH 

GUL 

b7l 

AaC(diITnHMCi7)9  CUNGAS 

GUL 

S72 

171 

CACU  rHeNM(.(AdC(liirMNMI.i7)  •AUC(d*trnNMCi7>  •AHC(3itTHHMLi7)  iAdC(Af 

GOL 

S73 

lITMRMCt  7)  <AttC(S«l  rhHM|.«7)  •  AtiC (»•  1  iHRMCt  7 >  t AHC  C  7 •  ITrtMMC*  7 )  • 

GOL 

S7a 

2A8C(a*l rnMMLt?) 1 

GOL 

STS 

IGNAt.91 

GUL 

S7d 

GU  TU  9H9 

GOL 

577 

c 

GUL 

S7d 

c 

AHRCr  RHUPAGAriUN  ALGURITHM  fU  CUMPUbX  FlbLU 

GOL 

579 

30 

ISTEP  ■  iSTER*! 

GOL 

SdO 

IFt.NUT.  INI  II  GO  TO  3d 

GUL 

Sdl 

REAOdNiRRORGfl 

GUL 

Sd2 

IFdlRS.GT.l)  1IFG9<> 

GUL 

Sd3 

AdC(liISrePi3)  9  UEL3 

GUL 

SdA 

AUC (dl (SIEPf 3)  9  RUCUHV 

GUL 

SdS 

AMCI3i1SIEPi3)  9  alNUOA 

GUL 

Sdd 

AdClAilSrCPiJi  a  91NUUK 

GUL 

Sd7 

AdClaitSiEPiJI  9  uFG 

GUL 

Sdd 

AdCldilSIEPiil  9  UTH 

GUL 

SdO 

AdC(7ilSIEPiJI  a  UPS 

GUL 

S90 

r^ 

lF(j  a  AHClSi  iSItPfJ)  *iU01 

GUL 

SOI 

Hm  a  AuCldilSttPi Jl *iU01 

GUL 

S92 

IPS  9  AdCl7f  ISTEPol  i.UUl 

GUL 

993 

WRlTb  (6iJ«l  (AdCdSfi  ISIbPiGI  ilsraliA)  ilFGi  ITRi  IPSiANGAiANGT 

GUL 

99a 

3A 

FUMMATI///  91N  UELd  RAU  CURV  dlNUUX  alNUUK  IFU 

GUL 

S9S 

A  ITH  IPS  ANGA  ANGY  /  aF 1 U .«• 1 6i SA i I«i SA • lOi 

GUL 

99d 

ASAfdFlU.S//! 

GUL 

S97 

I CORE  9  U 

GUL 

598 

IF  dFG.L(.-SI  GO  70  31 

GUL 

999 

IF  (AdS(9dClditS(EPi 31 1 iCI ..91  AaCldi lSTbPi3) 9HAUCUN 

GUL 

dOO 

CALI.  STEPIAdLllilSrEPiJ)  iAaCldilSlliPi3l  1  AuCIAilSTEP 

GUL 

bOl 

1 131 lAdC (A« ISTEPfO) ilFUil iHilPSiANGAioNGTiOi ICOHt) 

GUL 

dOd 

IF  dCUHeiEUiU)  1N7  9  1 

GUL 

903 

RSrCPAl 

GUL 

GO  TO  999 

GUL 

dOS 

31 

IFdRr.EU.0)liHnE((if319l 

GUL 

dOd 

Ji'* 

FOHNAKSdRu  LNIbRlNU  CURL  nbFORE  STEP  CALLbUI  CALCULATIONS  SruPPtO 

GUL 

d0  7 

A) 

GUL 

dOd 

IF  1 InT.Eu.OI 9T0P 

GUL 

d09 

c 

CALU  COREIAHLdf  lSTEPi3)  I lIRfUl 

GOL 

dlO 

ICOHCal 

GUL 

dll 

GO  TO  Add 

GOL 

dl2 

c 

♦ 

GUL 

dl3 

c 

APPLY  APCRTURE  TRANSMISSION  FUNCTION  TU  COMPLEX  FIELO 

GUL 

dlA 

AO 

lAP  a  IAP*i 

GOL 

dlS 

• 

if(«nut.  init)  gu  to  A1 

GUL 

did 

REAOlINtAPTURI 

GOL 

dl7 

AdCdflAPiAla  OUUT/d. 

SOL 

did 

AdCldf lAPiAla  OlN/di 

GUL 

dl9 

AdCI3f lAPfAla  APOS 

GUL 

ddO 

AdClAiIAPiAla  YPUS 

GUL 

ddl 

AdCISiIAPiAlarOUT/di 

SUAPR 

33 

AdCldf lAPiAlsTlN  /df 

SUAPM 

3A 

•  1 

IF (OUUT.LT. Of Of ANO.OIN.lt. u. 01 

GOL 

dd2 

ICALL  SLIVEHIAOCdf  lAPfAl  fAdC(dflAPfA)fAdL(3f  lAPfAl  f  AMClAf  lAPfAl  I 

GOL 

dd3 

IFIOOUT.GC.O.O.ANO.UIN.Gl.u.OI  CALL  APHTR ( ARC ( 1 f lAPf A) i AUC Idf XAPt A 

SUAPR 

35 

Al f A8CI3f lAPf A) f AdClAf lAPfAl fAdCCSf IAP.AI f AHC Id. 1 APf AI I 

SUAPR 

36 

IFIOOUT.GT.O.O.ANU.UIN.GE.w.OIRAPTRsAdCdf lAPfAl 

GUL 

626 

IGNAL'A 

SUL 

630 

GO  To  999 

GOL 

631 

u  u 


(MIL 

622 

AI>PCT  THtrtHAU  dkUUMlNG  TMAi^bMi^kitlUN  ^ONCIIUN 

ro  COMPLEX  fielu 

(MIL 

633 

bO  lUK  a  I0K*1 

6UL 

63* 

IF  (  .Nor.  iNir  1  (iu  ru  <ai 

(iUL 

6Jb 

nCAOIlNttfCOOM) 

6UL 

636 

AbCdtIUKfS)  a  ALFA 

(MN. 

637 

AdC(^<I0K«bl  a  SCH 

(MIL 

638 

AtfCOtlOK.b)  a  r 

(MIL 

639 

AbC(A«IJHtb)  a  MnU 

(M)L 

6*0 

AaCIbdiJKfbl  a  ^LfcN 

(MIL 

6*1 

AbC(6«10Ktb)  a  NbrUPb 

(MIC 

6*2 

AeCI7«IORiS)  a  {NHT 

(MH. 

6*3 

AdCldtlORfbi  a  nHHUP 

(>UL 

6** 

AdC(4<IJR<b)  a  aaIAL 

6UL 

6*5 

AaC(lU*IUKtb»a  or 

6UC 

6*6 

bi  NSTEPb  a  AaC(6«10Kol  ••OOUt 

(MH. 

6*7 

lNt«TaAbCI7tlURtbl*.a001 

(MIC 

6*8 

I22raaHC(a«lUH>bi *«UUUI 

(MIC 

6*6 

call  fbLUOH < ABC ( 1 1 lUR tb> • AaC (2«  tUR*bl • AbC  < jf 

lORtbl  tAbCI*«ll>R>b)  t 

6UC 

6bO 

AAbCIbtlURtbi  •NblCPb<IN*'TtU2r«At)C(V»iUR«9)  tAbCClUtlURtSt  1 

MIC 

6b  1 

(Ml  To  9<#9 

6UC 

6b2 

6tlC 

6b3 

iKirCMPOLArE  FfcfcUbACR  FIELD  FMUM  MEbUNATOM  NOUC  FOM  UbE  iN  MEAT 

60C 

6b* 

1  rtHATIOK* 

6bS 

«u  tF(.NUT.iNir«A<<tUa«Nor.a*ir»  ou  ro  bi 

6UL 

656 

IFC.i'Mr.INITI  UO  ro  b/ 

6UC 

6b  7 

•4fcAU(  ibtCutour) 

6UL 

658 

AbCdtlfll  a  UlbfcAM 

(MM. 

6b9 

AbC(2(l<ll  a  UVHLAM 

6UL 

660 

AbCiAdtl)  a  OAAM 

(MIL 

661 

AbC(A«ltll  a  OYTb 

(MIL 

662 

AbC(b»Oi>  a  AtlCOSM 

(MIL 

663 

I0UL(49)  a  lAab(HAAll) 

(MIL 

66* 

b7  OClbM  a  AbC<2«l«l)*AbC(t»itt)/<:. 

ML 

665 

OlbEAM  a  AbCdtltl) 

(iOL 

666 

AUEL  a  0CiaM/NPrS*2. 

(ML 

667 

AKdl  a  -OCIbMaXUEL/^. 

(MIC 

668 

OU  62  KiNaJfNPrS 

MIC 

669 

62  XRdbNi  a  XR  d(>Nol)  *AUEL 

(M)C 

670 

TArd)  a  X<2)  •  Xd) 

(MIC 

671 

TAY(2)  a  X(2)  •  Ad) 

6UC 

6  72 

TXY<J)  a  NPY 

6UC 

673 

rXY(*)  a  N**rs 

MIC 

67* 

OU  6«  RSMaltNPY 

SUL 

675 

6a  TXY(a«MSH)  a  X(MSP)«OMY 

SOL 

676 

NPYaaNHY*a 

WC 

677 

00  6*0  MbraltNPrb 

SOL 

678 

6*0  rAY(N*»Y*  •  RST)  a  X(Mbr)*UMX 

SOC 

6/9 

61  AYC  a  AbC(b*ltU 

sue 

680 

POaA  a  0« 

APH27 

1 

0X2a(X(2l>Xd)  )/2. 

APH27 

2 

0b2*0CI8M 

APM27 

3 

00  621  jaltNMY 

APN27 

4 

IF  (AHSIA(O)  )oOX2.(iT.Ub2)  (Ml  10  621 

APM27 

5 

FCY>1.0 

APM27 

6 

IF  <*«S(A(JI)*0A2.Lr«U82>  (Ml  TO  627 

APM27 

7 

FCYa<l)||2««AbS(A(JI  I^A2i  l/0A2^2* 

APM27 

8 

627  01  a  (j-t)  a  NMrS 

A|7h27 

9 

OU  620  lal.NPrb 

APM27 

10 

IF  (AbS(Ad)  )«OX2.ttr.Ub2l  OU  IU  620 

APN27 

11 

FCXal.u 

AIM427 

12 

IF  (AbSIAIl) ) •UX2.LT.Ub2>  UU  ru  62b 

APM2r 

13 

FCxa iua2- 1 AbS 1 X  d ) ) >0X2) 1 /OA2/2 . 

APM27 

1* 

62B  IX  a  01  *  [ 

APN27 

15 

FUaA  a  OUbA  •  CUdX)  •  CUM06 ICU IIA)  1  •  FCX  • 

FCY 

APM27 

16 

620  C0N71NUE 

APM27 

17 

621  CUNTINUE 

APM27 

18 

PUaA  a  PUPA  •  IX (21 'X 1 1 1 > aad  f  1000« 

APM27 

19 

RAAAa  0 

sue 

681 

IZaO 

sue 

682 

IF  (IYPrb>Nt«NPY)  Uat 

sue 

683 
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PUmS  ■  U« 

A>>M26 

12 

00  63  MraltNt'T 

(MM. 

6«4 

rlNi>  •  XKtMT)  •  AaC(4<ltll 

WL 

6«» 

00  63  MXal<N»>r6 

(M)L 

686 

M*A*ai4«AA*t 

OOL 

66  7 

AlN»<  a  XK(HX)  *  A6C(3<liil 

6UL 

686 

call  lNrbHH(rXY«AlN»<iYlNHiLU>2tCKI-L  IMAAA)  <  12) 

ARM  26 

13 

aj 

POaO  a  MOad  *  CFXL (HAAAt aCuNJOCCFYL (HAAAI) 

AHN26 

14 

f>uad  a  PUWB  •  ( XA  (2) -AK  (1 )  )  aa^  /  luUUa 

ARMZO 

16 

FXFLf  a  6aNr (PU«A/HOab> 

AFM26 

16 

00  623  XA  a  liNOa 

A*'M26 

17 

623 

CFFL(IX)  a  CFFLdXiafxfLf 

AFM26 

18 

adire  <6«62*)  POOHt^OaA 

AHM26 

19 

6«* 

FUMMAI  (/lUA>2bnFlbLU  AUJUbfoo  Fmum  l>Ua£M  OF  •F0,2<an  TO  »K6>2/> 

AHH26 

20 

IF  (CUSMF ,N6.U>I  60  TO  692a 

CrCLb9 

6 

UaO 

CYCLb9 

7 

Oil  6043  XxaltMCIS 

CTCLb9 

8 

A(1AI  a  AKIlAi 

cyCleo 

9 

00  5043  lXYaliM»«Y 

LYCLE9 

10 

U  a  12  a  1 

CTCLE9 

11 

CU(U>  a  CFFL(12) 

CYCLb9 

12 

(iO  TO  999 

CYCLE9 

13 

6^24 

CONTlMUe 

Cycleo 

14 

IF  (ICAV.IiT.OI  60  ro  691 

OOL 

690 

FMAXaU. 

(>UL 

691 

00  692  IMaitNOb 

OIXL 

692 

F9AGaCAd6(CFFL(lH) 1 

OOL 

693 

IF (Fma6«LT.FmaxI  00  TO  692 

OOL 

694 

FMAXafMAO 

OOL 

695 

INUXalH 

OOL 

696 

b<«2 

CONTlNUt 

(iUL 

697 

00  693  Ibal.NOa 

OOL 

698 

093 

CFFL ( IMI aCFFL  t IMI /FMAA 

(>0L 

699 

aMire<6«664i)  FMAA 

OOL 

700 

66*1 

F0MMAr(//47H  CUTOOf  FtfeLO  AHHLI fUOtb  HAYt  atCN  OlVlOtO  OY  • 

<>UL 

701 

X  Fcl.4«//) 

OOL 

702 

691 

CONTlNue 

OOL 

703 

aHITtX  <71  (CU(U>  *Ual«NOa) 

OOL 

706 

HEmINO  t 

OOL 

70S 

lF<.i'«OT.HesrHT.AraO*XNlTIOO  TO  630 

OOL 

706 

MbAO  (0)  (CFXL2<12) <I2aX«Noai •XOUHtOOUM2tOUUM3tNOUUMt6AVb 

OOL 

70  7 

HbaINO  6 

OOL 

708 

630 

SUMCHHaO.U 

OOL 

709 

ICNTau 

OOL 

710 

NOT  AafU'Tb/  16 

OOL 

711 

N9rUaf4»>r6/4 

OOL 

712 

lYMtcaNPrs-Nara 

(ML 

713 

NarOaNBTS/2 

OOL 

714 

BHITe(6«693) 

OOL 

715 

663 

fohmat (44Hocurour  fulo  cohoamison  to  oeiehmine  avoaxn/) 

OOL 

716 

adITE(6t  dl 

OOL 

717 

n 

FUHMAr<10MU  »'OlNr  f6Ail2n  LURMbNT  t4X>12>i  RHEVlOUb  t4Atl2H 

(ML 

718 

> 

1  RERCCNI  /lOH  lESIbU  feAal2H  VALUE  •4X»12H  VALUE  t 

OOL 

719 

X4X«9H  CHAM<>e//l 

OOL 

720 

ICEKSaO 

OOL 

^21 

00  66  lAaCaNaTa*>varC«N«<rA 

OOL 

722 

ICNTaiCNTal 

OOL 

723 

EHRSwaO# 

OOL 

724 

OUMaCABb  <CFFL  <  I  ABC*  <Na  rO'l  I  aoiKTSl  1 

OOL 

725 

OUMEaCAdb  <  CF IL2  < i AmC • <  NO  TO- i >  a^HTS 1 1 

OOL 

726 

tf  i  tWT  •MESTxT  .Mini,  imnuijnfi.ii 

OOL 

727 

I F  ( OuaE  (ivE .  u  • )  LMHbaa  t  oua-oUHt  i  /Ouml 

OOL 

728 

IF  <AH6(bHMSMI  .<ir.U.  lUI  iCLAbai 

oOL 

729 

SOMEXMaENMSaaaS  *  SUMEMH 

OOL 

730 

ad I TE  <  6 1 66U ) 1 AeC • aa 1 0 1  ooa t uume  t Emmsm 

OOL 

731 

660 

FOMMAT  (on  CU6M(«I3f  in«tl2<ini  t4X«0l2.6«4At(>12»6«  7X»2»*Fb.2l 

OOL 

732 

69 

CONfliVUE 

OOL 

733 

IF  (AdCCbf Itll .bU«  0.  .OH.iNllEH.tUaO.ANO.KAurO.EO.O) >  OO  TO  69 

OOL 

734 

IF(AltC(9tl«ll  •<>E>0«l  00  ro  66 

OOL 

735 

EOMSSabON  r  <  60MEMM/ 1 CM  r ) 

OOL 

736 

AVC  a  .8  a  EHH66 

6007 rcYi 

182 

IF (EHH66«0I .U.6)  AvCaU.2 

OOL 

738 

IF  (tRM66.Lr..ll  AvC  a  ,f 

6U077CY1 

183 

r.  o 


WMir£.l6«6lO)bHRSS<A«C 

6UL 

740 

610 

F0MHAri//17X<39nAIEL0  AVtRaOlNij  ObEN  USEU/lUA 

.IOHMMS  bMMOMa* 

OUL 

741 

1  Fa.*t6Atl2hAVCU6M  <J6EUa«*''6«6//i 

(3UL 

742 

66 

CONTINUE 

(ML 

743 

00  7S  MAaltNUa 

(3UL 

744 

AAN  a  CA0S(C7FL(MA) I 

6007 7CY1 

104 

AAULU  a  CAdS(CF{L2(MX) ) 

60U77CY1 

lOS 

75 

CFFl.<NA)  a  CFFUNA)  •  ( A0C«AAOLO»  <  1  .-AOC)  aXAN)  / 

XAN 

6UU77CY1 

106 

b9 

MY  a  NlTEM*! 

(ML 

746 

MEAD  (7)  (CU(12)  •UaltNOai 

(ML 

747 

HEalNO  7 

(ML 

746 

aNITE<6t6631 

(ML 

749 

663 

FUHMAr(13X<33MC0NV£N<jEN(>fc  tE6(  FIELU  C0MMAN160N/I 

auL 

760 

tCEKau 

(iOL 

761 

SMERMaO.O 

(ML 

762 

ICNlaU 

(ML 

763 

NM1TEI6*71) 

(ML 

764 

00  660  lAOCaNaTUtNaTCtNal A 

(ML 

766 

ICNTalCNT*! 

aoL 

766 

EMNaO. 

(ML 

767 

OUMaCAHS  (CO  (  uac*  INaTO*!  1  ‘NH  TSl ) 

(ML 

760 

OUMEaSAVEdCNT) 

(ML 

769 

SAVEdCNTjaOUM 

(ML 

760 

IF (.NOr.MEarMT.ANO.INlTIUUMbal.O 

(ML 

761 

IF(0UME«N£.0.1  tMHatOUM-UUMbl/OUMb 

(ML 

762 

IF(Aa6<EHN> .OT.U.02> ICEKal 

I30L 

763 

SMERHaeMMa«2«SMEMH 

OUL 

764 

aHirEI6«661)lAHCtNalUtUUM. uUMb  »  EMM 

OUL 

766 

661 

FOMMAI  (4H  CU(«I3<lM«>12iini  «*At<il2.6«aX«ul3.5>7Xt 

2RF6.3) 

OUL 

766 

660 

Continue 

OUL 

767 

IF (ICfcAS.EU.il ICfcKal 

OUL 

760 

EMHSbaSUM  T ( SMERH/ I CN 1 1 

OUL 

769 

«HITE(6t662lfcRHSS 

OUL 

770 

663 

FUHMAri/lSA.ianHMb  fcMMUH  F uM  CU  a.Fo.A/l 

OUL 

771 

aMlTElOl  (CFFLIUI  tUaltiYUal  tAK.AOC  (3.1.1)  .A6C(*. 

1.1) .MY. SAVE 

OUL 

772 

RfcalNU  6 

OUL 

7  73 

aMlTE  (6.661  (AdC(JYCX.l.ll .OYCXal.s) 

OUL 

774 

66 

format  (  //62M  lNrfcMMU(.A(  IONS  FOM  THfc  FIELU  OVER  OiafcAM*OVHLAM 

OUL 

7  75 

1 

(  have  oust  UfcfcN  MbHFOMMfcu  /6YM  BbAM  UlA 

OVEHLAR  ARO 

OUL 

776 

AS  rwus  f-lbtu  AVbMAOb  /  3A«S6l3.6  //  ) 

OUL 

777 

aMY  a  .FALSb. 

OUL 

770 

(lO  TO  9V9 

OUL 

779 

♦  • 

oUL 

700 

Increase  Tnb  numbeh  of  Gmio  moinis  Fom  commlea  FibLU 

but 

701 

Ibw 

MbAUdN.MEOMlUl 

OUL 

702 

nRISS  a  NMT6 

OUL 

703 

NPTS  *  NHY 

OUL 

704 

IF(N(jMu.i*r.NMrsioo  lu  isi 

but 

706 

(»0  TO  7  34 

OUL 

706 

161 

call  MGHU(N6mOI 

OUL 

70  7 

NOU  a  NMTSaNMY 

but 

700 

MMlTfc(6.1S2>NMTSS.NMYS.NM(B.NMY 

OUL 

709 

163 

FOMMAT (///6A.21M  YOUR  OMiOiNAL  F IfcLO ( » 14* IM*. 13.3VH)  HAS  6EEN  REOM 

OUL 

790 

llOOfcO  TO  A  LANOfcM  SUE  ( .  14.  IN*.  1  J.46fll  TO  OIVE  ThE  FIELU  NOMfc  MOO 

OUL 

791 

2M  ru  00  irs  thino///) 

OUL 

792 

(M  TO  999 

OUL 

793 

♦ 

OUL 

7bA 

HESONATUN  CUNVEMUENCE  TE6T 

OUL 

795 

70 

NlTEM  a  NITEM*! 

OUL 

796 

aHlTE  (6*6061  NITER 

OUL 

797 

606 

format (////39M  THIS  IS  iHfc  CUMRlETION  OF  ITERATION  *13  /> 

OUL 

790 

IF  (  I.YlT.ANO..NOT.HESrHT)  UO  (0  710 

OUL 

799 

IF(.NUT.lNir)  (jO  to  720 

OUL 

000 

130  TO  730 

but 

001 

710 

MCVNOaO*0 

OUL 

002 

SO  TO  720 

OUL 

003 

7J0 

REAO  (9)  (CFILdAl.Ual.NUMI 

OUL 

004 

MfcalNO  9 

oUL 

006 

RCVNOaO.O 

OUL 

006 

00  740  Ual.NOa 

OUL 

007 

RCVN0aRCVN6*CFlL ( Ul •CONUO (CF IL ( Ut  1 

OUL 

000 
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740  CUNTlNUe 

bi)L 

804 

PCyNttaCCVNO*  (A  (<)  •«  U  )  ) 

bUL 

810 

I F  ( SRfcO .tO.i.OM. Ni^es •  eu •  ^  1  KC YNttaK y Mb/ »NUM** 2 

bOL 

811 

72U  ^CMMal.OU 

bOL 

812 

IP ( PC VNbaOT .0.0) PiHMaPMw/PCVNb- 1 . 0 

bUL 

813 

IP  lAbSIPCMMI  .aT..0U7)  ICliKal 

SOUTTCTl 

187 

PCVNbKaPCVNb/ t 000 . 

bOL 

8iS 

aHlTEib* /SOiPPaKtPCvNbKtPtHM 

bUL 

816 

7b0  F0WM4riJ0A«21HPCUA  CUMVCrtbfcNCk  TtST/Z lOX > lOHNEa  PLUA  a,OPblI.«f 

bUL 

817 

a12h  ULO  PLUA  a.bll.atON  tHHUb  a*P«.4///l 

bUL 

810 

PCyNbaPPa 

bUL 

814 

aHITC  (41  (CU(UI<lAal<MUHttA*UMA*OMy»NirfcH 

bUL 

820 

xCalNU  4 

bUL 

021 

IP  (ICCK.eu.Ut  bO  TO  S*» 

bUL 

022 

IF  (ICAO.Ol.Oi  call  MCOAININCI*  NITEMI 

bUL 

023 

IP  (NiTeHi4ir.ae*ieuL(94ii  uu  to  looi 

bOL 

026 

HE.A0  (01  (CU(12)  tUaltNObl  »A»UMA*iMr«MtrfeM 

(iOL 

82S 

MCaiNU  • 

bUL 

82A 

IP  (ICAO. bT. 01  bO  TO  4b 

bUL 

827 

C  UCMOMMALlEAriOM  UP  INPUT  PiCLU  P«M  MANE  NESONATUP 

bOL 

820 

IP  (.NOr.INlTI  bO  TU  a* 

(MN. 

024 

PNAA  a  a* 

bOL 

830 

OU  a/  lAal.NUb 

bUL 

831 

IP  (CA8b(Cu( lA) 1 .l£«pmaa)  uu  ru  ar 

bOL 

832 

PNAA  a  CAaS(CU( 1A| 1 

bOL 

833 

N>«U1  *  lA 

bUL 

036 

a7  continue 

bUL 

83S 

06  TEbTaCAH<>(CU(NPain 

bUL 

83A 

00  77  lAaliNbb 

bOL 

037 

77  CU(lA)  aCUdAI  /TEST 

830 

00  TO  44 

bUL 

834 

lOUl  HEaO  (41  (CU(U)  t  UaltNObl  tAtUNAtONT 

bOL 

860 

MEalNU  4 

bUL 

861 

00  TO  lUUU 

bUL 

862 

bUL 

863 

C  CALCULATE  OCALC  PLUA  AND  NIHMUN  ANU  APEHTUHE  1 

LOSSES 

bUL 

866 

444  PPa  a  0. 

bUL 

86S 

NUaaNPTS'NPV 

bUL 

86A 

UU  7a  IZaltNua 

bUL 

067 

7B  PPaa»<Pa*CU(U)*CUNUb(CU(lA)> 

bUL 

860 

PPaaPPa* ( A (2) 'A ( i ) ) •a2« (NP  f i/NPY I 

iiUL 

869 

IP(NPE0.EU«1.0R.NHE0.E0.27PPPa»>Pa/aNoa**2 

8S0 

PSNiHappa 

8S1 

(iU  TO  (44a«447t94e«446«447l  tlbNAc 

bOL 

8S2 

947  PbNlPappa/HMlRH 

bOL 

8»3 

PNlPLa(PaNIrt-PP4l/lOOO. 

8S6 

PHI HLPa ( PbN 1 H-PP« )/PaNlP*luU> 

bUL 

8SS 

NMt  TE(6<4941PMIPLtPNlNLP 

bUL 

8SA 

944  POHMATdTM  nIHPUN  LOSS  lNa«Fa«2>an 

PERCENT) 

bUL 

057 

IPdbNAL«EU.blOU  TO  448 

bUL 

SSO 

946  APLOSa(SPP4-PaHlH)/lOOO« 

bOL 

8S9 

APLObPa ( ^Pa-PbH IH 1 /SPP«* 1 00 . 

liOL 

8A0 

IPdCNTL«Eb>llbU  TU  448 

bUL 

8A1 

oP 1 TE ( At  946 1 APLUS  t  APLOSP 

bOL 

8A2 

446  format  d7N  APEpTUHE  LOSS  att(12.6t  IHatPa.EtbH 

PERCENT) 

MIL 

8A3 

440  PPaKaPPb/lOOO. 

bOL 

SA6 

IbHALal 

bOL 

0A9 

SPPaaPPO 

bOL 

8AA 

UCALCPaX(NPTb)'>2.*Adi  *A(2I 

bUL 

8A7 

IP  INSTEP tNEtd  aNtTE(6t74IPPaAtUCALCP 

bUL 

8A0 

79  PORMATI/Z/OON  element  TRANSMISSION  POnCTIUN  APPLlEO/AXt UMOCALC 

PL 

bUL 

8A9 

AUA  at  U12.6/aAtUH0CAEC  "tPOtE  ) 

bOL 

870 

IF (MSTEPtEOt 1 ) «NI TE i At  7791 PP4A 

bOL 

871 

774  forma r(///J6M  PROPAbATION  STEP  MAS  MEtN  APPLIED/  OAtUMOCALC 

PL 

bUL 

872 

AUA  at  012t6l 

bUL 

873 

MSTCPaO 

bUL 

876 

JA23  IP  dPLOTS.EU.O)  bO  TU  JA26 

bOL 

875 

ORITE  IAt3A6bl  (ONOTdCNTLtI»tIa|t20) 

bUL 

87a 

CALL  IPLOT(IPLOTS) 

SOL 

877 

IP  llbATt.NEtO)  bO  TO  3A2!l 

bUL 

878 

JA65  Format  (25M1  plots  after  SIEP  •*••••  t2UA6t  bMaa###*! 

bOL 

879 

JA26  IPIPPa.LE.U.lOb  TU  732 

bUL 

880 

[F<,r4<JT,iNlTlS(i  TiJ  «« 

OOL 

681 

Od  TO  1000 

SUL 

082 

MMlTt(6tOOOiNlTe»* 

SUL 

883 

600  FUHMAri//  12U(lMS)//6bh 

IIEHAFION  is  CUMVeMOLU  AFTE 

SUL 

886 

X  t4.l6tl6n  ITbt^AriONb 

//120(ln*)//) 

SUL 

88S 

iF(KAuru.£w«ii(jo  ro  ve 

SUL 

888 

OU  TO  1000 

SUL 

887 

'«00  HbTUMN 

SUL 

888 

rji  isMirtL(6«  133) 

SUL 

889 

133  FUHMaT l///Sln  ALU  MlOnr 

FntKtb  AIM  r  MO  PuaCH  IN  THIS  MtPE 

OEAM  a 

SUL 

090 

Xivo  ThU  WEAbON  »t  Ht  all 

HCMfe/MH  IS  PUHER  SO  THIS  JOM  IS 

SUL 

091 

ATO  LbU  AMO  MLLbU  OUlCA 

/23M  •••CMtCA  INPUT***  //) 

SUL 

892 

STOP 

SUL 

893 

73a  MHlTEIbt  13S)N(jMU«NPTS 

SUL 

89* 

736  FOMMAT  (///3X«26r)*A*X*X* 

values  of  iVOMO  (•I*>12HI  AMO  NPTS 

(tl«t 

SUL 

898 

ISOMl  MAAE  7MiS  OPtHAfiON  U>«MeL£SSAWT  UP  MMUNC  •X*X*X*///) 

SUL 

898 

STOP 

SUL 

09  7 

EMU 

SUL 

098 

14.  SUBROUTINE  INTERP 

a.  Purpose  —  Subroutine  ^^^TERP  performs  linear  interpolation  on  two- 
dimensional  real  functions  and  on  the  real  and  imaginary  parts  of  two-dimen¬ 
sional  complex  functions.  Figure  32  describes  the  subroutine  INTERP  organiza¬ 
tion. 


b.  Relevant  formalism  —  Consider  first  the  one-dimensional  case  in 
Figure  33.  Assume  the  function  value  f  is  desired  at  a  point  x*,  between 
noints  x,  and  x^,  with  associated  function  values  f,  and  f, ,  resoectivelv: 

*  1  4.  1,4*’ 


Linear  interpolation  between  f^  and  f^  yields  f  as 


f(x*)  ass  f^ 


Cx 


Xi) 


(Xt  -  X^) 


CIOS') 


where  the 

(x^,  X,). 


is  used  since  we  are  approximating  f  over  the  subintemal 
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INTERP.  2 


INTERP.  29 


INTERP.  30  — ^  INTERP.  43 


INTERP.  44 - —INTERP.  56 


INTERP.  57 — —INTERP.  79 


Figure  32.  Subroutine  INTERP  organization. 
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Figure  33.  One-dimensional  ftmction  case. 


For  the  two  dimensional  case  in  Figure  34,  subroutine  INTER?  establishes 
the  location  of  the  far  comers  of  the  rectangle  bounding  the  desired  point 
(x.y) .  then  linearly  interpolates  across  top  and  bottom  to  find  the  two 
values  at  X.  It  then  interpolates  between  these  two  points  to  find  the  value 
at  (x,  y)  : 


etc 

(x.y)  Position  of 
Desired  Interpolate 


=  ^(Xj.yi ) 


(109) 


Figure  34.  Two-dimensional  function  case. 


fCx.y^)  a  f^-Qp  -  f3  ' 

f(x,y^)  * ^bottom  “  ^1 


(llO'l 
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nnnoonnnr.  onnn 


fCx.y)  *  f. 


BOTTOM 


'(y  -  1 

.'^2  -  yi>J 


ff  -  f  1 
*■  TOP  BOTTOM-' 


c .  Fortran 

Arguments ; 

TXY 

(XIN,  YIN] 

=  an  array  containing  coordinate  information 

-  the  point  at  which  the  function  value  is  desired 

TZ 

=  the  function  to  be  interpolated 

TYPE 

«  1  real 

a  2  complex 

=  two  element  array  containing  the  interpolated 

value. 

Note;  If  TZ  is  real,  ZZ  must  still  be  dimensioned  to 

2  in  the  calling  program,  then  the  first  element  used 

as  the  answer. 

NSYM 

a  1  symmetric, 

a  0  nonsymmetric 

Note:  Interpolation  outside  the  region  of  definition 
of  the  distribution  returns  (0.0,  0.0)  as  the  value 

of  the  interpolate. 

There  are  no  conmons  and  no  other  subroutines  are  called. 
Computer  printouts  of  subroutine  INTERP  follow. 


SUBROUTINE  INTERP  76/176  OPT-1  FIN  4.6+452  04/27/79  12.23.47 


SUriHUUTiNE  lNTEM>'(rAYtAlN«r  (N*r<t 

This  MOUilNt  uuts  *  lincah  iNieMwuLAriuN  on  tne 

AHHAT  Ti  TU  FlfOU  THE  VALUE  ii  AT  AlN.  TIN 

rHt(A«Y)  GHiu  0+  rz  IS  cuNrAixtu  in  mt  ahmat  tat 
AS  FOLLUMSI 

Tat  ID  a  OAa*ita«clN«>  eLraEbn  A  t'UlNfS 
TATIZ)  a  UfasWAClNU  H^Tabbi')  T  t'OlNiS 
TXT(J)  a  NVt  iVO.  Of  ('UlNfS  ALUNtt  T-AAlS 
TAT(*)  a  NAt  NU.  UF  FOlNfS  AcUHtt  A>AAiS 
TAYISt  a  Y(t)t  MIN.  Y  VALUE 
rXY(**NY)  a  Y(NY)(  NAA.  Y  vALUE 
TXYC)*NYI  a  A(l)t  MIN.  A  VALUE 
rAV(**NV*NA)  a  a(NA1«  NAA.  A  VALUE 


INFENW 
INtEKM 
INfEMH 
INfEH** 

INTEHM 

tNCEMP  r 

iNTENF  e 
tNfEHH  9 
INttHW  10 
iNitHW  11 
INTEKP  U 
INrENt*  IJ 
INTEMW  1A 
INfEHt*  IS 
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U*  #  Ui  rw 


j 

! 


i 


f. 


I 


r 

!  ; 

i 


c 

1^0  lb  XAA.  UIHeNSlON  OF  FIMbT  VAMiAttL£  IM  mitji 

INtEMR 

10 

c 

lYPE  a  1  lb  »4tAL  AHHAT 

INtEMR 

17 

c 

a  4  TZ  lb  (;0M*>t.£A  AHHAY 

INrEHt* 

la 

LEVCC  TZ«42 

INrEHH 

10 

OIMENSIUM  ZZl2><IXY(ll«rZ(li 

INtEHR 

20 

IMTElifeH  fYPt*  COM**».A 

INfERR 

21 

COMPcex  CZZtCZl  tCZ2<CZJtCA4«(.AA<C4b 

iNrEHH 

22 

DATA  COH**UX  /  i  / 

INYEMR 

23 

OX  a  rXYll) 

INfEHt* 

24 

OY  a  TXY(2> 

INYENR 

2S 

NY  a  TXYOX.OUOOl 

INIERH 

20 

NX  a  TXYtAI *.00001 

IN  TEH** 

27 

Z2(U  a  u. 

INfEHF 

2B 

ZZ(2)  a  d. 

INYEW** 

29 

c 

TEST  lU  bEE  IF  XIN.YIN  LIE  allHlN  UbFlNEU  rz  MESIUN 

INIEMF 

JO 

iF(xir4.Li.rxY(S*NY)  1  ao  ru  looo 

INIEHt* 

31 

iFcxiN.ar.rxYi  A*Nx*Nvn  uo  ro  loou 

INtER** 

32 

IF<YlN.Lr.rXY(bl 1  00  TO  lUOO 

IN fEMF 

33 

IF (YIN.dl .a..ANO.NbYN.EU.l)  SO  fO  IdOU 

INrEHR 

34 

IF  (YlN.(ir.rxY(Nr*Al  .ANO.NbYN.Ett.O)  <tO  TO  1000 

INlEHR 

35 

c 

FIND  fOblTIUN  OF  (XlN.YlNI  IN  OHIO 

INIENI* 

3* 

11  a  l*(XtN>rxr(b*NYI >/ux 

INIERF 

37 

J1  a  l*(YlN-rxY(9n/UY 

INtERF 

38 

IFdl.EO.NXI  llall'l 

INYEMH 

39 

IF (Ol.EO.NY.ANO.NbYN.eu.Ul  JlaOt-1 

INIEHP 

40 

SX  a  ( AIN-TXY ( li *4*NY) ) /Ox 

INtEHf* 

41 

SY  a  (YlN-TXY (01*411 /UY 

INfEHR 

42 

c 

finu  rz  yauues  at  u*ii*UJi>oi*i 

INrENF 

43 

IFlTYHE.EO.CUNPLXl  uO  TO  ZUU 

INtERH 

44 

c 

rz  IS  rwEArto  as  real  anhay 

INtEHP 

45 

10  a  I1*NX4<01-11 

INfEHP 

46 

Zl  a  rzdOl 

INIEHH 

47 

Z2  a  TZdO*U 

INIEHP 

48 

lO  a  ll*NX4(0ll 

INTEHP 

49 

IF  (Ol.EU.NY)  tOalO'NX 

INIEHP 

bO 

U  a  rZdOl 

INTENP 

bl 

ZA  a  TZdO*n 

INrERF 

92 

ZA  a  Zl*bX4(ZZ>Zl) 

INfENP 

53 

ZB  a  ZJ*bX4(Z4-ZJ> 

INlENP 

54 

ZZd)  a  ZA*STa(ZB-Z4l 

INfEMP 

55 

00  ro  luuu 

iNfEKP 

56 

zoo  CONdNUE 

INIEHP 

57 

c 

IZ  lb  THEArtO  Ab  CONHLEX  aMNAT 

InIemp 

ba 

10  a  rYot«m*NA*(oi-in  -  i 

INIEHP 

b<* 

ziA  a  rzdol 

INYEMP 

6U 

ZlB  a  rzd0*ll 

INItPH 

51 

CZl  a  CHFLX (ZlA.Zldl 

INfENP 

52 

Z2A  a  rZdO*2l 

inTehp 

53 

ZZB  a  rZdO*J) 

1N(E«P 

54 

CZZ  a  CHRLAIZZA.ZZBI 

INIEHP 

55 

10  a  rYI»t»di*NX*Oll  -  1 

INTENP 

56 

IF  lOl.EO.NYI  loalO-NX4TrHt 

INTEHP 

57 

ZJa  a  rZdOl 

INTENP 

6« 

Z3B  a  TZdO*l) 

INIEMP 

60 

CZJ  a  CM*N.A(ZJAtZJBI 

INlENP 

70 

Z4A  a  TZdO*2l 

INiEMP 

71 

Z4b  a  rzdo*j> 

INIEHP 

72 

CZ4  a  CMY'LXIZ4A«Z4BI 

inIemp 

73 

CZA  a  CZl*9XaiCZ2-CZl> 

INIEHP 

74 

CZB  a  CZJabXatCZA-CZJl 

INYEHP 

75 

CZZ  a  CZA*SY4ICZB-CZAI 

INlEHP 

75 

ZZd)  a  healiczzi 

INtEHP 

77 

ZZi2)  a  AlHAOICZZ) 

INfEHP 

78 

1000  NtrUMN 

INfEHP 

79 

£NU 

INtEHP 

80 

j 


! 
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13.  SUBROUTINE  IPLOT 


a.  Purpose  --  Subroutine  IPLOT  has  two  major  purposes:  One  is  to  create 
a  printer  iso-intensity  plot.  The  other  is  to  find  the  maximum  intensity  and 
to  print  the  first  title  used  by  subroutine  OUTPUT.  It  also  contains  the 
necessary  information  used  by  both  subroutines  OUTPUT  and  OUTPUR  to  determine 
whether  a  particular  slice  plot  should  be  printed.  Figure  35  describes  the 
subroutine  IPLOT  organization. 

b.  Relevant  formalism  —  The  output  of  this  subroutine  is  an  array  of 
one-digit  adjacent  members  with  at  least  one  asterisk,  which  indicates  the 
maximum  intensity  points.  The  numbers  indicate  relative  intensities. 

c.  Fortran 
Argument  List 

The  only  argument  of  subroutine  IPLOT  is  the  parameter  IPLTS  which  con¬ 
tains  the  information  needed  by  OUTPUT  (and  OUTPUR)  as  well  as  IPLOT.  IPLTS 
i  ''.lied  with  zero  to  five  digits,  each  of  which  is  0  or  1.  If  it  is  0, 
t.ie  indicated  plot  is  not  done;  if  1,  it  is  plotted.  .Assuming  that  the  five 
digits  of  IPLTS  are  written  ABODE,  the  associated  plots  are: 

A:  Radial  (calls  OUTPUR  -  not  available) 

3:  Iso-intensity 

C:  .X-axis  slice  plot 

D:  Diagonal  slice  plot 

E:  y-axis  slice  plot 

Common  Parameters: 

The  only  common  modified  is  CFIL  due  to  its  equivalence  with  US,  the 
intensity  array.  The  other  parameters  have  then  usual  meaning  including 
PLOTSG. 

Recall:  PLOTSG  >  0  -►  intensity  slice  plots 
=  0  no  plots 
<  0  -►  amplitude  slice  plots 
Subroutines  called:  ntrrpUT,  nirtpiro 

Computer  printout  of  subroutine  IPLOT  follows. 
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LR0P1  22-^LROP1. 43 


LR0P1,  44-«fc.LR0P.  57 


LR0P1  58-^LROP1. 67 


LR0P1. 68— >LR0P1.  79 


LR0P1  30— “LR0P1  85 


LROPl.  86-^UROP1.  105 


Figure  35.  Subroutine  IPLOT  organization. 
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n  r>  o 


SUBROUTINE  IPLOT 


76/176  OPT=l 


FIN  4.6+452  0^/27119  12.23.47 


subHouTiNC  iHtor (iHurs) 

LPOPl 

22 

ISU-lNTe>4bilY  HWlNIbH  ^tol 

LHOPl 

23 

THIS  HUUllNt  *  MWlNltH  r>(.Or 

iNfbNSirY  AMEPb  fHt  0101 r 

LNOPl 

2A 

PHlNltO  •  ig  IS  UbClLb  UF  HbAb  iNlbAtSlTT  Fow 

ruAT  bLbMbNi. 

LROPl 

as 

ubvEL  at  cuHtus 

LNOPl 

26 

CUHMUN/HfcLt/CUIt(3a/6d)  tCK  tkUbSlai  tAliatt)  t«btNPlStNHYtUMAtUMT 

LMOPI 

<T 

CUMMUN/#«Y/«NO«tNHbatMA**rM 

LNUPl 

28 

COMMON  /t*l.TSl<j/  MLOISO 

LHOPl 

29 

UIMENSION  ostlbjttb  ItlKlSol 

LHOPl 

30 

INTEOEH  llfUbANUtOUr 

LHOPl 

31 

LUlalCAL  lSUlHtXAAIStOlAetY*AtStNAUMI.I 

LHOPl 

32 

CUMPUbA  CFIL 

LHOPl 

33 

EUUlVAtENCElCFiLl  1  ItUSl  1  II 

LHOPl 

3A 

DATA  ibCUH  /  AMM  /tlaCUA/AMX  / 

LHOPl 

3S 

IF  (HbOTSStbOtOtl  HbrUMN 

LHOPl 

36 

tHUHAaiaCOA 

LHOPl 

37 

HAUPUIatFALSEt 

LHOPl 

38 

ISOtPa.FAbSb. 

LHOPl 

39 

XAAlSatFALSbt 

LHOPl 

AO 

OlAGa. FALSE. 

LHOPl 

Al 

YAAlSa.FALSb. 

LHOPl 

A2 

IPL«lFLtS 

LHOPl 

A3 

IF  (IFL.LT.iOOOOl  OU  TO  avu 

LHOPl 

AA 

RAUFLT  a  .THUE. 

LHOPl 

AS 

IHL  a  IPL  -  10000 
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10.  SUBROUTINE  KINET 


a.  Purpose  —  This  subroutine  calculates  the  kinetics  an(i  loaded  gain 
in  the  gas  dynamic  laser  cavity,  it  is  called  by  GAINXY  for  either  small 
signal  gain  calculation  (along  a  single  stream  tube  in  the  x-direction)  or 
full  field  loaded  gain  along  several  stream  tubes.  Figure  36  describes  the 
subroutine  KINET  flow  chart. 

.An  intensity  field  XIC  and  previous  gain  field  CAN  are  brought  in  from 
GAINXY  and  are  updated  by  recomputing  the  kinetics  and  gain  in  the  cavity  as 
a  function  of  these  updated  fields.  The  population  rate  equations  (i.e., 
the  equations  showing  the  rate  at  which  the  energy  of  each  vibrational  level 
is  changing)  are  numerically  integrated  along  the  xCflow) -direction .  This  is 
continued  along  the  x-direction  until  the  end  of  the  calculation  region 
CIXMAX)  and  is  then  redone  for  each  stream  tube  in  the  y-direction  (if  full 
loaded  gain  is  requested  by  IFIELD  /  1).  The  full  gain  field  GAN  (I)  is 
then  updated. 

The  assumption  is  made  that  the  flow  area  of  the  cavity  is  constant 
through  the  region  of  interest  for  all  kinetics  calculations. 

b.  Relevant  formalism  —  Gain  is  calculated  in  the  x-direction  from 
nozzle  exit  plane  to  the  end  of  the  region  of  interest  IXMAX  at  a  constant  y 
value,  as  shown  in  Figure  37.  This  is  done  along  only  one  mid-cavity  stream 
tube  for  small  signal  gain  calculation  and  at  every  y-value  (lY)  for  the  full 
field  loaded  gain  calculations. 
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Cdileil  t$oM  GAINXY 


S6.  Sub rout i 


IXMAX 


X 

lY 


Figure  37.  Region  of  interest  IXMAX. 


Rate  equations  are  set  up  for  each  level  which  describe  the  energy  in 
that  level. 


Cill) 


C112) 


(113) 


The  energies  of  each  level  EN2,  EOOV,  EVOO  and  EOVO  are  updated  at  each  AX 
step,  i.e.,  the  AE  change  is  computed  and  the  corresponding  heat  addition 
(local  temperature  change)  is  used  to  compute  the  energy  in  the  subsequent 
step. 

The  stimulated  emission  energy  rate  can  be  used  to  determine  local 
intensity  change  and,  hence,  gain.  Energies  of  levels  are  described  by 
population  densities  n^  and 


dl 
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u^L 
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(114) 
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where  is  the  specific  intensity  at  the  frequency  \>;  n^  is  the  population 
density  of  the  upper  level;  n^,  that  of  the  lower  level;  the  Einstein  co¬ 
efficient  for  spontaneous  emission;  the  stimulated  emission  coefficient; 

and  B^y,  for  absorption.  The  quantities  and  are  the  line  shape 

functions  for  the  three  respective  processes,  which  are  generally  different. 

Characteristic  times  for  the  spontaneous  decay  of  low-lying  vibrational 
states  for  molecular  species  of  interest  are  of  the  order  10*^  to  10  ^ 
second,  whereas  other  rate  processes  are  typically  much  faster.  Hence,  in 
the  equation  above,  the  spontaneous  emission  term  generally  can  be  neglected. 
Also,  for  the  oresent  analyses,  interest  focuses  primarily  on  photon  pro¬ 
cesses  occurring  at  line  center.  At  line  center  0^.  =  .  Thus, 
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The  factor  multiplying  is  the  optical  gain  coefficient,  viz: 
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The  Einstein  coefficients  are  connected  by  the  relationship 
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where  d^  and  d^  are  degeneracies  (statistical  weights)  of  the  upper  and  lower 
states,  respectively.  Also,  it  is  possible  to  write 
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where  is  the  quantum-mechanically-derived  transition  matrix  element. 
Hence,  the  gain  expression  may  be  rewritten  as 
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Consider  vibrational-rotational  transitions  of  the  form 
(v+1,  J)  *  (v.J) 

where  v  is  the  vibrational  quantum  number  and  J  is  the  rotational  quantum 
number. 


where; 


v+1 1 


J  for  P-branch  transitions  (i.e.,  J'  »  J  +  1) 

J  +  1  for  R-branch  transitions  (i.e.,  J'  »  J  -  1) 


Rv#  =  vibrational-transition  matrix  element 


At  pressures  of  a  few  tort  or  less,  transitions  are  predominately 
Doppler  broadened.  At  higher  pressures,  the  combined  influence  of  Doppler 
and  pressure  (Lorentz)  broadening  is  present.  Therefore,  the  line-shape 
factor  (v^)  is  represented  in  terms  of  a  Voight  profile  such  that 


13.3 


C  “(2irKT) 

<=)(. 


exp'-*'*  erfe  (£) 


“d^'V-IsJKoI  -  “OOI*-'  «•«  'roi 

^®02*0^ 


-  ^  cy>i)  ell^\ 

n'jn/ 


(122) 


(123) 


(^020 
'■  rot-^ 


001 -•lOO 


CO2  -  CO2  10. S  X  10"^^  cm^ 


(124) 


001  -02® 0 


'"°2  ■  “  10.2  X  10-^5  ^^2 


(125) 


The  influences  of  Doppler  broadening  and  vibration-rotation  interaction 
have  been  taken  into  account. 


where 


(126) 
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P 


pressure  broadened  (Lorentz)  half-width 


T 

2ffC  ^ 
s 


V  X 
s  s 


a^j  *  Doppler  broadened  half-width 


,  Zo  J  2kT(ln2) 
.,2  ^  m 


v^  is  the  mean  relative  velocity  p>/2kT/M)  between  the  emitting  molecule  and 
the  colliding  species;  X^  is  the  species  mole  fraction,  is  the  broadening 
cross-section  due  to  the  impacting  species  s;  is  the  transition  frequency 
at  line  center;  m  is  the  mass  of  the  emitter  molecule;  and  M  is  the  reduced 
mass  between  an  emitter  molecule  and  the  collider  molecule  of  specie.^  s: 
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The  optical  gain  coefficient  may  be  rewritten  as 


g(V,Jl 
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Here  the  quantities  V  and  J  in  the  expression  g(V,J)  indicate  the  lower 
levels  of  the  transition. 

In  treating  the  populations  of  the  vibrational-rotational  levels,  it  is 
assumed  that  the  rotational  mode  can  be  described  by  the  local  translational 
temperature  T.  Hence, 
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where  B  is  the  spectroscopic  rotational  constant  (cm  ) ,  and  a  is  its 

(vl  ® 

anharmonic  correction.  The  quantity  is  the  rotational  partition  func¬ 

tion,  which  is  evaluated  according  to  the  relation 


(V)  =  Z  (2J>1)  e.xp  (-E^^^  (J.V)/kT) 


(130) 


The  populations  can  also  be  represented  by: 
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where , 
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'rot 


'rot 


.  nv 

gyj  s'^  \  /  rot 


~  =  n  exp  {-e  /T  ) 
g  000  ^  ^  %  V 


0  =  characteristic  temp,  of 


state 


T  =  vibrational  temperature  of 


state 


g^,  represent  degeneracies 


For  the  transitions 

CO,  (001, J) 
CO,  (001, J) 


CO2  (100, J±l) 
CO,  (0:°0,  Jil) 


the  pertinent  constants  are; 


•  13 


'^001,100  " 

•  .1  g 

RqOi  02^0  *  0*0295  x  10  esu-cm 


5(001) 

rot 

3f02°0) 

rot 

(100) 


9 


rot 


0.55632  K 

0.56106  K 

'  0.56078  K 


®001  -  5380  K  9^00 


1997  K 


®020  - 


The  expressions  for  the  gain  coefficients  on  two  transitions  are 
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exp  (^^4^  -  J(J+l)  C0.55632/T))-  (0.56078) 
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exp  -  J(jil)  (0.56078/7)^1 


«0Oi!j'=  ^  10-^^)|m|(l-0.006m)T  ^  n  X^^^  ♦ 

|(0. 55632)  exp  -  J(J+1)  (0.55632/T)^ 

-(0.56106)  exp  (0.56106/T)|j 


where  ma-(j+l)J'=J-*-l  (P) 
m  =  J  J'  =  J  -  1  (R) 

p 

n  =  total  number  density  =j^ 


X  =  mole  fraction  of  ground  state  C0-,  (from  program) 
000  z  ' 


J'  .  0,2, 4,6, 


For  largely  pressure-broadened  line,  0  may  be  expressed  as: 


.  1  fi  0-S  .  0.75  1. 


875  6.5625 


Argument  List 


XIC  The  field  (matrix)  of  individual  intensities  in  the 

calculation  region 

GAN  Gain  (updated)  of  each  of  the  point  locations  of  the  field 

IXMAX  Number  of  points  in  the  flow  direction 
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DXCAV  The  distance  between  points  in  the  x-direction 
IFIELD  Indicator  for  small  signal  gain  CIFIELD  =  1)  or  Loaded 
Gain  (IFIELD  1) 

lY  Number  of  flow  streams,  i.e.,  points  in  the  y-dimension. 

Commons  Modified 

/PROPT/ 

Static  temperature  in  the  cavity  (K) 

Static  pressure  in  the  cavity 
Gas  velocity  (cm/sec) 

Gas  density  (gm/cc) 

Number  density  (particles/cc) 

/ENERG/ 

Energy  (population)  of  the  V  =  1  level  of  N^ 

Energy  (population)  of  the  asymmetric  stretch  vibration  mode 
Energy  (population)  of  the  bending  vibration  mode  of  CO, 
Energy  (population)  of  the  symmetric  stretch  mode  of  CO^ 
/RATE/ 

Rate  for  stimulated  emission. 
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17.  SUBROin’INE  MIRROR 

a.  Purpose  —  MIRROR  applies  a  mirror  transmission  function  to  the 
complex  field  which  may  include  reflectivity,  clipping,  radius  of  curvature, 
edge  diffraction  imaging,  small  tilt,  astigmatism,  localized  surface  distor¬ 
tion,  and  overall  spherical  distortion.  In  addition,  two  specialized  options 
have  been  included;  (1)  a  toric  mirror  effect  for  axicon  optics  and  (2])  a 
mirror  dimple  effect  which  enables  a  localized  difference  in  radius  of  curva¬ 
ture.  Figure  38  shows  the  subroutine  MIRROR  organization.  Computer  print¬ 
outs  of  the  .MIRROR  subroutine  begin  on  page  168. 
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CALLED  FROM  GDL 


MIRROR 


IF  OISTF<  -10.0,  EDGE 
DIFFRACTION  IMAGING 
WILL  BE  USED 


Rout'  ^  0- 


TILT  ANGLE  WILL  BE 
APPLIED  HERE  IF  ANGX 
<  lOOMrad.  AND  .  ANGY 
<100  «rad. 

DOES  RADIUS  OF  CURVA¬ 
TURE  CHANGE  WITH 
TOTAL  POWER?  IF  SO, 
DELTA  >  0 


LOCAL  POINT  DISTORTION 
DUE  TO  INTENSITY 
DIFFERENT  FROM 
MIRROR  CENTER  WITH 
ASTIGMATISM 


LOCAL  INTENSITY 
DISTORTION  WITH 
NO  ASTIGMATISM 


NO  LOCAL  INTENSITY 
DISTORTIONS;  ASTIG¬ 
MATISM  ONLY 


« 

EDI.  1—^  EDI.  30 


MIRROR.  19— ^MIRR0R.21 


MIRROR.  22— “-MIRROR. 55 


MIRROR.  56  —“►MIRROR.  113 


MIRROR.  114 — “►MIRROR.  141 


MIRROR.  142— “-MIRROR.  156 


MIRROR.  157— “-MIRROR.  171 


Figure  38.  Subroutine  MIRROR  organization. 


161 


The  routine  first  tests  for  the  option  of  edge  diffraction  imaging  in 
which  the  outer  annular  edge  of  the  mirror  has  a  radius  of  curvature  dif¬ 
ferent  from  the  mirror.  When  this  option  is  used  the  MIRROR  subroutine  must 
be  called  separately  to  apply  EDI. 

The  subroutine  must  be  called  again  for  the  rest  of  the  mirror. 

The  routine  then  apertures  the  field  to  the  sire  of  the  mirror  and 
applies  small  mirror  misalignments  (angles  less  than  100  microradians)  to 
the  field.  For  large  angles,  the  angle  information  is  stored  in  ANGX  and 
ANGY  which  are  located  in  common  MRPROP  and  used  to  later  determine  the 
location  of  the  center  of  the  field.  The  field  itself  is  not  altered  for  the 
large  angles. 

b.  Revelant  formalism  --  A  distortion- free  mirror  is  applied  to  the 
field  in  Figure  39  by  changing  the  optical  path  lengths  of  the  field  points. 
For  e.xample,  apply  a  convex  mirror  to  a  plane  wave. 


Mirror 


Incident 
Phase  Front 


Mirror 


\  Reflected 
\  Phase  Front 


Figure  39.  Mirror  transmission  function  relative  to  the 
comnlex  field. 


N'ote  that  the  field  at  the  edge  has  traveled  25  more  than  the  center. 
The  size  of  the  sag  6Cr)  (Fig.  10)  at  any  point  r  can  be  found  from  the 
sag  formula; 


(R^  -  5)^  + 


(135) 


Figure  40.  Graphic  representation  of  SAG. 

Thus,  to  make  the  center  of  the  field  lead  the  edge  by  a  factor  of  25^, 
the  following  transmission  function  is  applied  to  the  field: 


u  (x,y) 


T(.x,y)  u(.x,y), 


(156) 


The  sign  convention  used  is  a  negative  radius  of  curvature  for  a  convex 
mirror.  A  concave  mirror  has  a  positive  radius  of  curvature. 

In  addition  to  curvature,  the  MIRROR  routine  can  apply  power  or  flux 
dependent  distortions  to  the  field. 

The  power  dependent  mirror  distortion  can  be  applied  given  the  center- 
to-edge  maximum  sag,  DELTA,  determined  by  design  power,  PWRDES.  The  incident 
power  is  then  calculated  and  the  sag  reduced  by  the  ratio  of  incident  power 
to  design  power.  For  a  ratio  greater  than  one,  it  is  assumed  that  the  sag 
is  that  of  the  design  power. 
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The  flux  dependence  is  applied  assuming  a  distortion  factor,  DISTF, 
which  weights  intensity  changes  from  the  center  of  the  field  and  thus  applies 
an  intensity-dependent  ohase  factor  to  the  field. 

Astigmatism  can  be  applied  to  the  field  in  conjunction  with  the  local¬ 
ized  flux-dependent  distortion  or  can  be  applied  alone.  Astigmatism  is 
included  if  PHIAST  is  input  (as  a  number  greater  than  0) .  PHIAST  is  the 
angle  between  the  mirror  normal  and  the  optical  axis  (in  degrees) .  The  phase 
is  altered  by  astigmatism  by  computing  separate  (sagittal  and  tangential) 
radii  of  curvature  for  the  mirror  and  applying  to  vary  the  X  and  Y  component 
of  the  phase  field,  respectively. 

Argument  List 

ANX  Mirror  tilt  in  X  (about  y-axis) 

.A.VY  Mirror  tilt  in  Y  (about  x-axis) 

RADC  Radius  of  curvature  of  mirror  (cm) 

RIAOUT  Outside  radius  (cm) 

RIAIN  Inside  radius  of  annular  mirror  (cm) 

XPOS  X-direction  offset  of  mirror  centerline  from  optical 
axis  of  beam  (cm) 

YPOS  Y-direction  offset  of  mirror  centerline  from  optical 

axis  of  beam  (cm) 

RFL  Mirror  reflectivity  -  fraction  0.0  -*•  1.0 

DELTM  Total  power  spherical  distortion  factor 

niSTF  Flux  distortion  factor  -  local  intensity  distortion 

f(I,  ,  -  I  ,  );  (cm/W/cm*’) 

local  center"^ 

RANULS  Radius  to  annulus  for  toric  mirror  option 
RYOUT  Outside  Y-dimension  (from  center)  for  a  rectangular 
mirror  (cm) 

RYIN  Inside  Y-dimension  (from  center)  for  a  rectangular 

mirror  (cm) 

PHI.AST  .Angle  of  beam  with  respect  to  mirror  normal  (deg) 

Relevant  Variables 

.AKY  2t/WL  »  2ir/X  where  ir  »  3.141S9 

.ANGX  .Accumulative  x-dim  angle  to  trace  field  in  cavity 

ANGY  .Accumulative  y-dim  angle  to  trace  field  in  cavity 
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Cosine  of  phase  change 
CUR  Real  array  representing  the  complete  wave  amplitude 

field,  i.e..  Intensity  (J)  *  IcURCJI  j  “  |cUR(J-l')| 

DELTA  DELTM,  total  power  spherical  distortion  factor 

FMF  Square  root  of  mirror  reflectivity 

PHASE  Phase  change  at  each  point  of  wavefront 

PHI  Phase  change  in  TORIC  MIRROR  and  DIMPLE  calculations 

PPW  Integrated  power  on  mirror 

RADCUR  Negative  focal  length  of  mirror  (  -f) 

RllSAG  Sagittal  radius  of  curvature  (astigmatisr.) 

RMTAN  Tangential  radius  of  curvature  (astigmatism) 

SINP  Sine  of  the  phase  change 

WL  Wavelength,  \ 

IVNDW  Magnification  factor  for  scaling  power 

2 

XX  X  ;  x-component  of  location,  squared 

YY  Y^;  y-component  of  location,  squared 

Commons  Modified 
/MELT/ 

Array  modified  CUR(I)  I  MIRROR  50,  51,  98,  99,  139,  UO,  167 

/MRPROP/ 

Variables  modified:  RADCUR  1  MIRROR  115 

ANGX  a  MIRROR  25 

ANGY  ?  MIRROR  26 

EDI  (Edge  Diffraction  Imaging) 

Power  near  the  outer  edge  of  the  beam  that  would  have  been  ordinarily 
lost  through  diffraction  is  partially  recovered  by  incorporating  a  separate 
radius  of  curvature  in  an  outer  edge  annulus,  as  shown  in  Equation  137  and 
Figure  41. 


The  real  representation  CUR  of  the  complex  amplitude  field  is  modified 
as  follows: 

K2  a  EVEN  NOS 
K2MI  =  ODD  NOS 

Real  Part;  CUR  (K2}  =  CUR  (K2-1)  (sin  0)  +  CUR  (K2)  (cos  0) 

Im  part:  CUR  (K2M1)  =  CUR  (K2-1)  (cos  0)  -  CUR  (K2)  (sin  0) 


This  array  is  modified  in  the  same  way  by  the  phase  changes  throughout  this 
subroutine. 

Mirror  Tilt  (<100  urad) 


Ai  a  -2  [(.iNX)(X)  +  (ANY)(Y)]|-^ 


(138) 


where 

ANX  =>  tilt  in  x-direction  radians 
.ANY  =>  tilt  in  y-direction  radians 


Power  Dependent  Spherical  Distortion 

This  part  of  MIRROR  subroutine  calculates  the  phase  change  due  to  total 
power  induced  spherical  distortion. 


(139) 
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»  Intensity  at  coordinated  x,y  fW/cm'^ 
Ref  s  Mirror  reflectivity 
IVNOW  =  VAMP  power  correction  factor 


Astigmatism  (Only) 


where  R^^^  ^  raDC/cos  <t>  ast  (cm) 

'S’AN  =  RADC  (cos  .ji  ast)  (cm) 
where  RADC  =  radius  of  curvature  of  mirror  (cm) 
=  beam  -  mirror  (astigmatic)  angle 

aS  c 

=  PHIAST 


SUBROUTINE  MIRROR  76/176  OPT=l  FIN  4.6+452  04/27/79  12.23.47 


SOeHOOr  l«*E  l  ANAt  amt  tM«UC«MlAOOT  tWlAlMt  AKObTTPUStH+UtUtLTM, 

riiMHUM 

A  0isrF«>4AMULSfHruurf>4T iNt^niAsr* 

ciuAsro 

a 

c 

MOUlFlfcU  flT  JCC  li/A/fS  TU  MARt  COMHUtA  MULTIkUT  MUWt 

EFFlClbMr. 

4 

c 

MiHMOri  THAN^iMXa^lUN  FUNCTigN 

HiKAOM 

b 

c 

THIS  xguriNb  APwcltb  a  himnum  rwAMbMissiuN  fonciiom 

10 

JMb 

a 

c 

COMPttA  FltLU.  rue  FUtLUWlWW  tFFfcCIS  A«t  iMCLOUtO; 

MIMPUM 

7 

c 

!•  CUOC  AMU  CbMrPAL  ueSCUMAdUNS 

MlPHOH 

a 

c 

MIHHUX  PAUlUS  UF  CUHVAtUMb 

HlKHUH 

c 

J.  MlRMUH  PtFLtCTlVlIt 

niHRUM 

10 

c 

*.  HUhEM  OtPENUtNT  UiSIUMtiUM 

MirtRUR 

u 

c 

b«  FLUA  UtPbMUbMT  UlSTUMfiUM 

NIRHOM 

l4i 

c 

«.  ruMiC  MIMNUM  MAUIUS  UF  (.UMVAFUMb 

HlMHOH 

13 

LEvEl.  2t  CUM 

MINPUM 

1* 

CUMMON/HbtT/CUMU^T«e)  tCFiU(lft»U>  TAU^ttl  t«btMPrS*NPT  tOHAtUMT 

MIHROM 

IS 

CWAMON/MMPMOH/H  AUCUH  t  AMGA  t  ANWT 

mihmom 

16 

COMMON/ PAT/WNOa«NHbeTHAP  fM 

MIMRON 

17 

CUMPLbA  CFIC 

CUMR2 

» 

lF(aiAuor.bu>Q.o<ANu.MiAiN.cu*u.D»  eu  lu  ru 

MlHROH 

19 

IF  IU1STF.I.£*-10«)  00  ro  JVO 

bUl 

1 

CACL  APMrA(MlAOurTHlAlN«AMUS*TPUS*NfOUr«HTlM) 

SUAPH 

3R 

c 

MIHROM 

<1 

c 

•••  HIhMOM  tilt  AOOltiON  tHMUOUM  SrAfbMbMr  MU  iO 

MiNRUH 

22 

c 

MIMNOM 

23 

10  IF  (AUS<ANA)  .Lb*  •OUWiOW  .AMU.  AeStANY>  .bE.  .UOOlOU) 

OU  TO  71 

rtlHRUrt 

2* 

AMOAsANA*Z.tl  *  ANOA 

MINROH 

2S 

AMWTaANT+E.O  •  AMOY 

MIHROM 

26 

71  OEbTAaOELTM 

MlMROH 

27 

FMFaSgMriHfCI 

MIMRON 

28 

AKY  a  a.O  •  J.lAisO  /  aC 

MINNOW 

29 

PI  a  3.1*199 

MIHROH 

30 

PMMFAC  a  0. 

MINROR 

31 

OISMAA  •  lOOOUU. 

HlHROH 

J2 

I'M*  ag. 

HIHHOH 

33 

a  -lUUOUU. 

HIHHOH 

36 

PMHoes  a  buggoo. 

HIHHOH 

3S 

IF  (MANUCS  .(>T.  g.gmu  ru  igg 

HIHROH 

36 

IF  IMIAUUT  .cT.  g.i  go  ru  ^gg 

HlHHUH 

JT 

IF  (ahsiana)  •6k..agoiui  .uh«  AUbiAAtTi  .gt>  •oogioii 

60 

TO  3U 

HIHHOH 

30 

IF  (ANA  •Eu«  0*  .ANU«  ANT  .tU*  g.d>  (lU  TO  30 

HIHHOH 

39 

00  60  0  a  i,nFY 

HIHHOH 

60 

Jia  Ij-ll  •  N*>TS 

HIHHOH 

61 

00  60  1  a  i,n*>T3 

HIHHOH 

62 

riLT  a  ANX  •  All)  *  ANT  •  XtJ) 

HIHHOH 

63 

phase  a  -«.0  •  HUT  •  AKT 

HIHHOH 

K2  a  i  a  (  I  •  Ji  ) 

HIHHOH 

as 

A2M1  a  -  1 

HIHHOH 

66 

SInF  a  3lN  (PHASfc) 

HIHHOH 

6T 

CUSP  a  C03  IPHAbk) 

HIHHOH 

60 

CONS  a  CUM(K2N1) 

HIHHOH 

69 

CUH(K2Mt)  a  UUMSaCOSP  •  COM  CH2>  •StIM' 

HIHHOH 

so 

»u 

CUN(K2>  a  CUMS*31NP  «  CUHlA^iacoSN 

HIHHOH 

31 

»0 

NUM  a  NPIS  •  NNT 

HIHHOH 

32 

OELHAA  a  g. 

HIHHOH 

33 

OCUlN  a  0. 

HIHHOH 

36 

HIHHOH 

39 

c 

•••••••  ^Om£h  iJtHfcNOENf  KAOIui  0»'  CUWvAlu**k  CACCULAflONS 

AHE 

HIHHOH 

36 

c 

'  ON  ....  PHAbf.  a  i  H1/UAH0A(X•«^  HI... . 

•  • 

HIHHOH 

3T 

c 

H  aF(Jc.Sl<jN  MUakMt  IMClUcNf  HOacM«  CkNIEM  tU  bDbk  < 

OISroHI lONaaa 

HlHHUH 

30 

c 

••••  aHtHb  UCbluN  I'Uakrt  •  >*«HUb^ 

HlHHUH 

39 

c 

•••*  INCIUENI  «  >*>'• 

HlHHUH 

«0 

c 

••••  haa  c.  TU  k.  ularowiiuM  «  utuTA 

HlHHUH 

61 

c 

••••  J  KUHonAM  11-13  -  /A 

HlHHUH 

62 

c 

HlHHUH 

63 

OEUlN  a  OEUTA 

HIHHOH 

IF  (ObtrA  .tu«  g.  .OH.  FHF  .to.  !•)  uo  ru  jo 

HIHHOH 

63 

IF  (ottrA  .ur.  g.i  uo  ro  jg 

HlHHUH 

66 

OELHAA  a  Aosiotura) 

HlHHUH 

6r 

c 

HIHHOH 

60 

c •••••«  KUaCA  SCHtOUttU  CENttH  »U  tu«*t  OlSIOMnUN 

AaaAaaaaa 

HlHHUH 

69 

c- 

HIHHOH 

ro 

DO  IS  lalt  nos 

HIHHOH 

n 

U  a  i  a  I 

HlHHUH 

ti 

13 

PHa  a  PPa  •  (.OH  ( 12-1 1  ••2  ♦  COHtl2»aa^ 

HIHHOH 

T3 

PPa  a  PPa  a  u<2l  -  A  ( 1 )  » ••2  •  (NPrs/NHY) 

HIHHOH 

76 

IF  (NMtO  <tO<  1  >00.  NHtu  .to*  2  >  PPa  a  HPa/artOaaaj 

HIHHOH 

73 

c 

PHHFaC  a  PuaEH  IN  oEAH  /UtblON  POatH 

HIHHOH 

76 

PhhFAC  a  PPa  /PaHUES 

HlHHUH 

77 

IF  (PaHFAC  .OT.  1.1  PaHFAC  ai. 

HlHHUH 

70 

OtUTA  a  PaHFAC  •  OtUIA 

HlHHUH 

79 

60  TO  21 

HIHHOH 

00 

kO 

OtUfA  a  AOSIOEUTA) 

HIHHOH 

01 

HAolOS  a(HlAOoraai)  a  PI/(aU  •  ART  a  otUIAl 

HIHROH 

02 

MUC  a  -HAOlUb 

HIHHOH 

03 

tTA  a  ary  /hoc 

HIHROH 

06 

HSO  a  niAOOTaa2 

HIHHOH 

09 

00  23  I  a  I,  hPy 

HIHROH 

06 

YSO  a  All)aa2 

HlHHUH 

OT 

00  33  J  a  1,  HPTS 

HIHHOH 

00 

ANO  a  tSU  •  AlOiaaE 

HIHHOH 

09 

IF  <AM6  •or.  PSOI  60  TO  2J 

HIHHOH 

90 

PHIHIH  a  eta  a  1  TSU  *  XUiaa^  ) 

HIHHOH 

91 

10  a  J  «  1  1  -  1)  a  MPTS 

HIHHOH 

92 

102  a  IJ  a  2 

HIHROH 

93 

I02HI  a  102  -  1 

HIHROH 

96 

SInP  a  SlN(PHlMIH) 

HIHHOH 

93 

C03P  a  CUSlPHlHIHi 

HIHHOH 

96 

CONS  a  CUH(102M1) 

HIHROH 

97 

C0H(I02H1)  a  CUNsaCOSP  •  CoH 1 i02> aSINP 

HIHHOH 

90 

CUN  11 02)  a  CUHSaSlNP  •  UoH 1 102> aCUSP 

HIHHOH 

99 

23 

CONTINUE 

HIHHOH 

100 

IF  (UELIN  .ur.  g.)  60  ro  23 

HIHHOH 

101 

aHlTEI6*6«l 

HIHHOH 

102 

FOMHAr  l///*2gA,J3HPUaEH  bCntOUUbO  HIHHOH  (JlSTUHriON 

HIHHOH 

103 

aHITt  (6*4U)HUC*  OeUHAA*  OtUlA*  Pawt AC 

HIHHOH 

106 

90  FUMMAr(//<j9n  HUoeH  INUUCtU  MAOIUS  UF  CUMVATUMC  ■  tfilZ t 

MIHRUN 

lOS 

X39M  MAXIMUM  To  EOUt  OiSTOMTiUrt  ■  «<il2<»«2HCM«/t 

MIHRUH 

i06 

A39M  APIXUUU  CtNiEH  TO  EUOt  UlbTOMTlUM  «  •G12.&t2HCN</t 

MIHHOH 

107 

X39M  Fraction  of  utGioN  KUatH  imciucmt  ■ 

MIMROH 

1U6 

so  TO  30 

MIHRUM 

109 

2!i  aMire  (0«9UUetTAtMUC 

MIHHUM 

110 

91  FUMMAr(//t20A>10nMlMAUM  OlbrOHTlON  #//• 

MIMROM 

111 

AJTm  AAPUlEO  CANTEM  TO  EUOt  OIaTUMTIUN  a  •(*12.».2HCMt/ • 

MIHROH 

112 

X«2M  OiSrOMTlOM  INUOCEO  MAOlOA  OF  COMVATUMb  a  tlil2.bt2HCM) 

MIHROM 

113 

JO  IF(AdSlMAOCJ  .QT.il.l  AKYMBAKr/MAOC 

MIMROH 

114 

HAUCUMa-HAU(./2* 

MIHMOM 

11b 

.LU.  U<0>  OU  TO  J^O 

ClUAbTO 

9 

FrllU  a(  hhIAaT  •  All/lOU. 

ClUAbT(> 

10 

MM^AO  a  MAUC  /  OObtAniMl 

C10AbT(> 

11 

HNTAN  a  HAOC  •  CUb(MMiH) 

ClUAbiG 

12 

3bu  continue 

ClUAbTG 

13 

NMaNMfS/2 

MIMROH 

116 

MOtXa  1  N(»- 1 )  aNM  Tb ‘NM 

MIHHUM 

117 

IF  IFMF.Aa.l.0«ANU.U(bfF.bO.0.0>(*U  lU  10 

MIMROH 

iis- 

ACAHA  a  1.0>FM»«a2 

MlMHUH 

119 

OEbFaUlSIFaALPMA 

MIHROH 

120 

OEt.F2aOEI.F*2. 

MIHHUM 

121 

XlCl.aCUM(2*NUfeX«ll  •  COM  (2aN0tA)  »a^ 

MIMRUH 

122 

IF  (AbSIMAOCUMI .LT.tbl  GO  10  2 

MIMRUH 

123 

aNUaSoal*0 

MIMRUH 

124 

IF  iNMEo  (bU.  1  •UH.  NHbu  •bO.  2  )  aNOaSUaMNUNaa^ 

MIHROH 

12S 

JO  a  0 

MIHROH 

126 

OU  1  lal.NPV 

MIHROH 

127 

TbU  a  X(l)aa2 

MIHROH 

128 

00  1  jal.NAtb 

MIMRUH 

129 

JJ  a  JJ  *  1 

MIHHUM 

130 

JJ2  a  JJ  a  2 

MlHHOH 

Ul 

JJ2M1  a  JJ2  •  1 

MIHMOM 

132 

XlAY  a  CUH(JJ2Ml)aa2  «  CUMtJJbjaa? 

MlHHOH 

133 

OELtaOELF  2a ( X ICU-* I AT ) /aNOabw 

MIHROH 

134 

lF(FMtAbr  ,EU.  0«0I  GO  TO  aOO 

CluASTG 

14 

FMAbE  a  AKra(l  X(J)aa2  /HMbAOl  •  (YbU/HMIAN))  •ARYaUbLL 

ClUASTG 

IS 

00  TO  A  Ob 

ClUASfG 

16 

aOO  HMaSE  a  ARYMatxiJtaa^  *  Ybw  )  -  AAYaobtL 

ClUAStG 

17 

aob  continue 

CIOASIG 

18 

SInA  a  biNIPHAbb) 

MIMRUH 

136 

CObP  a  COS (AM Abb J 

MlHROR 

137 

CUMS  a  CUM(JJ2M1) 

MlHRUR 

138 

CUM(JJ2M11  a  (  COHSaCOSA  -  COM ( JJ2) ablNA  »  •  FMF 

MIHROH 

139 

1  CUH<JJ2J  a  (  COMSaSlNA  *  COM ( JJ2) 'COSA  1  a  FMF 

MIHROH 

140 

IF  ( Am  1 Ab  r .Mb . U . 0 1 aM I Tb ( 0«a2u ) MMSAOaHMT An 

ClUASTG 

19 

a20  FOMMAT t/fa— astigmatic  AMAbt  ASGEHaTION  AAACIEO  alTM— a,2. 

ClOASTG 

20 

X20Xfa— SAGGl  TAL  MIHMOM  MAOlUb«  a,ti>,  Y.aCM**/. 

CiOASTG 

21 

X20Xta— TANUtNTlAL  MIHMOM  MA01oS«  a.tlb. / .aCMa,/ ) 

ClUASTG 

22 

AETUMN 

MlHRUR 

lal 

2  JJ  a  0 

MlHROR 

142 

00  3  lalfNAY 

MIMROH 

143 

00  3  jal.NMTS 

MIHROH 

144 

JJ  a  JJ  •  1 

MIHROH 

14S 

JJ2  a  JJ  a  2 

HIHMOH 

146 

JJ2M1  a  JJ2  •  1 

MIRROR 

147 

XlXY  a  CUNIJJ2Ml)aa2  •  C0M1JJ2I**2 

MIHROH 

148 

UCLLau£cF2a(XICl.~XlXTI 

MIHROH 

149 

Amass  a  ary  a  (  -ObLL  ) 

MIRROR 

IbO 

SIiYA  a  3lN(AMASb> 

MIMRUH 

Ibl 

COSA  a  COb<AMAbb) 

MIHROH 

lb2 

CUmS  a  C0H(JJ2M1) 

MIHROH 

lb3 

CUM(JJ2Mlt  a  (  CUMSaCOSA  -  COM ( JJ2> aslNA  )  a  FMF 

MIMROH 

1S4 

3  COM(JJ2)  a  (  tJNbablNA  •  COM ( JJ2) atOSA  )  a  FMF 

MIHROH 

ISb 

MbTUMN 

MIMROH 

lb6 

10  IF  (AttSlMAOCoM)  .LT..S)  MblOMN 

MIHROH 

lb7 

JJ  a  0 

MIMROH 

lb8 

00  11  tal.NAY 

MIMROH 

1S9 

YbU  a  xdjaa^ 

MlHROR 

160 

00  11  Jal.NAlb 

MlHHOH 

161 

JJ  a  JJ  •  1 

MIHHUM 

162 

IF (AmIAST •bO.J^OlOO  TO  atfu 

ClUAbTu 

23 

170 


n  r>r> 


MHASta  AKY*( (A(J>**£/HMSAGI  •  (TbG/HMrANI) 

ClUAbTG 

E4 

SO  To  *db 

CtUAbTG 

Eb 

<»<1U 

i»MASfc  ■  AKYM*  tAtJ»*A£  •  YbUl 

CIOASTG 

2b 

<»<*s 

continue 

ClUASTG 

E7 

JOE  a  00  •  E 

MIMHOH 

lb4 

JOENl  a  OOE  ^  1 

NIMHOM 

Ibb 

SInP  a  blN(MnAbE) 

MIMHOH 

Ibb 

CUSP  a  CUSCMMAbE) 

MIMHOH 

IbT 

CUmS  a  COH(OOEHI) 

MIMHOH 

tb« 

CUNtOOEMU  a  CUNbaCUbM  -  COM (OOE) ablNH  i 

MIMHOH 

lb» 

u 

CUM (002)  a  CUHbaSlNM  «  CUM (OOE) aCUbF  ' 

MIMHOH 

WU 

IF (PMIAbr •NC>a«U) MMl rE(6<4cU(MMSAG<MMrAN 

ClOAbTG 

Eb 

hETUmn 

MIMHOH 

1/t 

MIMHOH 

tr2 

C  *••••  rOMIC  HIBHOH  P«*S)i  CALCULAUUNS  J  fOUOHAM  io»4-r^  •*••*•* 

MIHROH 

tT3 

Q 

MIMHOH 

IT4 

lUO 

00  lOG  lal.NMTS 

MIMHOH 

ITS 

IF  (A(l) .fiE<HANUCb)  GO  TO  iUft 

MIHHOM 

ITb 

PHI  a  AKY  •  ((MANUCS  •  A(l>)*a2)  /  MAOC 

MIHHOH 

ITT 

SlNP  a  SIN(PHl) 

MIHHOH 

ITS 

COSP  a  COS (PHI) 

MIMHOH 

179 

00  lUS  Oal»NPTS 

MIMHOH 

ISO 

K  a  (O-l)aNPrS 

MIMHOH 

isi 

10  a  I  *  K 

MIHHOH 

IS2 

102  a  10  •  2 

MIMHOH 

1S3 

102MI  a  102  •  1 

MIMHOH 

tS4 

CUHS  a  CUM(t02ni) 

MIHHOH 

IBS 

CUN(102M1)  a  CUMbaCOSP  -  CUM ( loE) ablNP 

MIHHOH 

tSb 

lO^I 

CUM (102)  a  CURbaSINP  •  CUM ( loE) aCOSP 

MIMHOH 

tB7 

ittb 

continue 

MIMHOH 

tss 

METUMN 

MIHHOH 

1B9 

C  tOG£  OIFFHACTION  IMAGING 

tOi 

2 

iOO 

aN  a  E.  •  J.l4l!»926  /  aC 

tot 

3 

PI  a  MIAIN 

toi 

4 

PHI  a  Ml  4#  ^ 

tot 

s 

ME  a  HIAOUT 

tot 

6 

MHE  a  HE  •*i 

tot 

7 

00  3IU  {al.NPTS 

tot 

S 

XX  a  A(1)44E 

tot 

9 

00  3lU  jal,NHY 

EOI 

to 

YYaX(0)aaE 

tot 

It 

K  a  (O-l/aNOrS  •  1 

tot 

12 

MM  a  AX  •  YY 

tot 

13 

IF  IMM.Lb<MM1.0M«MH.GbtHHE)  GO  TO  3lU 

tot 

14 

OCTPmI  a  MN  •  (MH-HM1)/HA0C 

tut 

IS 

K2  a  K  a  2 

tot 

tb 

XEMl  a  ME  •  1 

tot 

17 

SlNPablNIOcrPHI) 

tut 

IS 

CObPaCOSIOLTMHl) 

tot 

19 

CUmS  a  CuHdVEMll 

EUt 

EO 

CUM(MEMI)  a  CUMbaCUbP  •  CUMIME)*blNM 

tut 

21 

CUM (ME)  a  CUHSaSlNM  ♦  CUM(ME)aCOSP 

tut 

22 

JIO 

CONTINUE 

tot 

E3 

aHITE  (GfiEV)  MIAlNtMlAOurtMAOC 

tut 

E4 

J^U 

FOmMAT  ( lOXtJJn—oEOIEUIEOlEUIEOlEUlEUlEOltOl*—  / 

tot 

Eb 

X  EUXtaGHAPOUIEAl  ION  APHCIbU  alTM  (fit  FOCLOMINO  MAHAHtrbHb  • 

tut 

X/EUXtlSHlNblUS  MAOlUb  a  tbI9. //EUXt 1GH0UI&10E  MAOlUb  ■  • 

tot 

E7 

X  Elb. //EUXfEIHMAOlUb  UF  CUHWAIUMt  a  t  bl9>/  > 

tut 

ES 

METUMN 

tui 

E9 

c 

tut 

JO 

c 

MIHHQH 

190 

c  ••••••  MIMhok  eOlMMLtC  »»MASfc  tACtULAFIONS  J  FOMGMAM  ••••••* 

MIMHOH 

191 

c  ••• 

MiMHOM 

19E 

£UU 

MMTT  a  MlAOUr  aaE 

MIMHOH 

193 

00  2U9  lal.NPTS 

MtHHON 

194 

XX  a  Xll)aa2 

MIHHOH 

199 

00  EU9  OaliNHTS 

MIMHOH 

19b 

YY  a  X(0)*aE 

MIHHOH 

197 

MM  a  XX  •  YY 

MIHROH 

19B 

IF  (mM.GT.mHIT)  go  to  EUb 

MIHHOH 

199 

PHI  sAMY  4  (HM«MHTT)  /MAOC 

MIMHOH 

EUO 

M  a  (0-l)4NHIS 

MIHHOH 

EOI 

•  (I  *  HI  •  ^  hihhom 

■  IJ^  •  1  MIMMUR 

SIM*  ■  SlN(f»iI)  HiRMUM 

CUSR  a  CUSiRnll  MIHMOM 

CURS  ■  CURdUZRl)  NlRMUR 

CURIIJ^RU  ■  CURS*COV  •  (.RRUU<)*SiRR  RIRROH 

CUM(IU^)  a  CURSaSIRR  *  CuR ( 1 'CUbR  RIRROH 

^US  CUNllNUC  RIRRUR 

RMf  a  -MiUOUt  RIRRUR 

aRire  («<«UUI  R*UC>RRI  RIRRUR 

«OU  FORRAI  I/>^»R  Tra  RAUlUS  U*  COR<«AlUR|i<  iIl.*»40H  RAS  Ui£N  ARRtltU  RIRROR 

AONCT  UFfcR  A  RAUlUS  UF  iFA.J/l  RlRROM 

RE  TURN  RIRROR 

CNU  RIRRUR 


18 .  SUBROUTINE  MIX 

a.  Purpose  --  MIX  calculates  relaxation  and  pumping  rates  for  use  by 
subroutine  KINET.  The  time  constants  which  describe  the  various  collisional 
processes  are  generated  from  quadratic  fits  to  published  data  over  a  finite 
temperature  range.  The  relaxation  rates  are  then  calculated  from  the  time 
constants'  and  the  cavity  gas  mixture  ratio.  This  routine  does  not  require 
an  argument  list. 

Relevant  Variables 

TC2C  time  constant  for  C02  (OVO)  C02  -  C02  +  C02 

TC2N  time  constant  for  C02  (OVO)  ♦  C02  -  C02  +  N2 

TC20  time  constant  for  C02  (OVO)  +  02  -*■  C02  +  02 

TC2W  time  constant  for  C02  (OVO)  ♦  H20  -*■  C02  +  H20 

TC3C  time  constant  for  C02  (OVO)  C02  *  C02  (OVO)  +  C02 

TC3N  time  constant  for  C02  (OOV)  +  N2  C02  (OVO)  M2 

TC3W  time  constant  for  C02  (OOV)  H20  -►  C02  (OVO)  +  H20 

TPMP  time  constant  for  M2  (V=l)  +  C02  -*■  M2  +  C02(001) 

TTRD 

<5 

TTRD2 

RC2  relaxation  rate  for  C02  (OVO)  -*■  C02  (000) 

RC3  relaxation  rate  for  C02  (OOV)  C02  (OVO) 

RN2  nitrogen  mispump  rate  (pumps  C02  bending  mode) 

RPUMP  pumping  rate  for  upper  level  excitation 

b.  Relevant  formalism  —  The  CO^  V-V  and  V-T  relaxation  rates,  the 
pumping  rate  and  the  nitrogen  mispump  rate  are  computed  by 


where  is  the  static  pressure, 

Xi  are  the  appropriate  species  mole  fractions, 
and  ti  are  their  associated  time  constants. 

The  time  constants,  associated  with  the  various  collisional  processes 
are  computed  by  an  exponential  quadratic  fit  to  published  data.  The  general 
form  is: 


4  4 

T.  »  exp  (a.T^'’  *  b.T  ^  +  c.) 
1  ^  1  s  is  1 


Commons  Modified 
i  /RATE/ 

Variables  modified: 


RC2 

at 

MIX. 

28 

RC3 

at 

MIX. 

29 

RN2 

at 

MIX. 

30 

RPUMP 

at 

MIX. 

31 

Commons  Modified: 

/MELT/ 

Arrays  Modified: 

CU  incoming  5  outgoing  field.  Field  is  modified. 
CFTL  field  to  which  CU  is  made  orthogonal 

Figure  42  is  the  subroutine  MIX  flow  chart. 
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o  n  o  o  n  n 


CALLED  FROM  KINET 


Figure  42.  Subroutine  MIX  flow  chart. 


The  subroutine  MIX  comouter  printout  follows. 


SUBROUTINE  MIX  76/176  OPT=l  FIN  4.6+452  04/27/79  12. 

SUbHOurtNt  MIA  MIA 

THIS  HOUIlNt  CAUCULArtb  TMt  v-v  ANO  V-T  MttAXATIUN  FOM  v/bt  MU 

IN  SUMROUriNfc  AlNtr  HlA 

COMMON/ MHOM  r/TStPb<ytMHO«  HnUN  f  Ce • OAMMA  *M  • XL AMU • HNU  t  CMWM  M  t  X 

COMMUN/MULCb/ XN^  t  XCU<  t  XH^U  t  xcu«  xue  Mix 

CUMMON/HArE/HN2<MCjfMC2tHMuMM*  HSIlM  MIX 

TTMO  ■  rb««»-.J33l  Mix 

TTM02  ■  rTHO**2  MIX 

CO2<00V)*N2a  CU2<0V0)*M2  MIX 

TCJn  ■  EXMCJ93.i2«TTMU2*l«F.AV*rTHU>l0./20l  MIX 

C02 ( OOV t *02  •  CU2(UVOI*02  Mix 

TC3U  *  rC3N  MIX 

CU2(U0V)*CO2  a  CU2<UVUI*CU2  Mix 

TC3C  a  exM(-b»3.9baTIM02»2U«.JV*lrH0-lb.«0l)  Mix 

C  CU2<UUV)*H20  a  CU2(0VUI*M2U  Mix 

rC3M  a  CAM(-lb.89barTHU2*.jblJ9*TIMU-2.r323)  Mix 

C  CO2(0V0>*M2  a  C02+N2  MU 

rC2N  a  EAPUjeAtSiaTTHOZ*!!?.^^*! THU>«.6tt9e)  Mix 

C  C02<OVOI*CU2  a  CU2*C02  MIX 

TC2C  a  EAP(-29b.9«arTHU2*UU.32arTR0-9.J2«b)  MIX 

C  C02IUVO)*H20  a  CU2+M2U  MU 

rC2a  a  EXP(319.2**rrMU2>l J2.U«*TlHU*6<90y2>  MU 

C  C02<9V0t*02  a  C02*U2  MU 

TC20  a  C^P('*199.29aTTM02*8a.je9aTIHU-«.d6Atf)  MIX 
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N2(Val)*C02  «  N2*CU2(0UII 

Mix 

26 

TPMP  a  EAPt JU^.2S*TTMU2>iU«.4U*TrM0*;.U«l/n 

MlA 

27 

RC2a  MS*  tXN2/TC2N*ACU2/TC2l.*AH2U/  rC2a*x02/TC20>  *1 

MlA 

2S 

HC3a  RS*<XN2/rC3N»*C02/rCJC»AB20/fCJa»X02/TCJN» *1,66 

Mix 

2V 

HN2  a  >»S»XC02/TCJN«l.eb 

MIX 

30 

RPUMP  a  KSaUN2*XCu2)/rPMf*ai.£.6 

Mix 

31 

RETURN 

Mix 

32 

ENO 

Mix 

33 

19.  SUBROUTIXE  MODER; 

a.  Purpose  —  Subroutine  MODER  is  designed  to  orthogonalize  one 
complex  field  with  respect  to  another,  and  to  excite  a  higher  order  mode  for 
bare  resonator  mode  studies.  The  fundamental  relationships  are  from  the 
Siegman-Miller  paper  (Ref.  13).  Figures  43,  44,  and  45  are  flow  charts  for 
the  Subroutine  MODER  Organization. 


SCONTRL  IFLOW  =  23) 
$ORTHG,MODE«  L  ) 


Figure  43.  Subroutine  MODER  organization. 


13.  Siegman,  E.  and  H.  Y.  Miller,  "Unstable  Optical  Resonator  Loss  Cal¬ 
culations  Using  the  Prony  Method,"  Applied  Optics,  9,  p.  2729,  1970. 
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LOAO  FIELD  TO 
8E  ORTHOGOnaliZED 

WITH  against 


read  (SOI 

cfil 


MODEfl.27 
WOOER. 29 


CALCULATE  POWER 
IN  CURRENT 
OU  FIELD 


CALCULATE  PRODUCT 
OF  CU  WITH  cfil 


CALCULATE 
PRODUCT  OF  CFIL 
WITH  CFIL 


orthogonalize 

CU 


check 

orthogonality 


ADJUST 

POWER 


Figure 


Polo  • 

STIcul^  x’ 

CT  = 

ZZcu* 

CFIL(^X|2 

CFT  =■ 

SZCFIL  CFIL|C.X)2 


CU  - 

CU 

f  CT 
ICFTJ 

cfil 

cc  * 

ZZcU'CFIL(CiX)2 

1 

c 


RETURN 


WOOER  .48 
WOOER  .SO 


ORTHOG.33 


ORTHOG  .34 


WOOER. 62 


ORTHOG  .37 


WOOER.63- 
ORTHOG  .36 


Perform  orthogonal izat ion 
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MODE  EXCITATION 
EXCITE  Lth 
MODE 


o 


CU  - 

CU*EXP{iL(tan-MY/x)[ 


^  RETURN 


MOOER  .15 
MODER  .26 


Figure  4S.  Mode  e.xcitation. 


b.  Relevant  formalism  —  The  orthogonality  condition  satisifed  for 
symmetric  kernel  calculations  is 


3 


f(x,y)gCx,y)  dxdy  =  0 


(I45:i 


where 

R  a  calculation  region  of  interest 

f,g  *  two  arbitrary  complex  fields,  described  here  at  equispaced  discrete 
points. 

The  procedure  is  implemented  by  a  Gramm-Schmidt  orthogonal ization,  to  create 
a  new  field,  h(x,y)  from  two  known  fields.  .Assume 

h(x,y3  a  f(x,y)  +  cg(x,y)  (146) 
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where, 


c  =  complex  constant 

g  =  field  with  which  orthogonal iiation  takes  place. 


(147) 


Numerically  this  becomes, 


Additionally,  impose  the  condition  that 


(148) 


(149) 


then  h. .  is  the  new  field  which  is  orthogonal  with  respect  to  g. . 
the  same  power  as  the  initial  field  f. 


and  has 


Additionally,  MODER  is  structured  to  excite  the  azimuthally-varying  phase 
factor  for  the  generation  of  higher  order  modes.  In  cylindrical  coordinates, 
the  modes  of  a  bare  resonator  may  be  written  as: 


(r,9) 


ne 


One 


-jl9 


(ISO) 


where. 


o<<  3  <  2it 
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an  arbitrary  (convex  mirror)  scaling  factor 
1  »  il,  t2,  .  .  . 


n  =  0.  1,  2 . 

Higher  order  modes  in  bare  resonators  are  initially  excited  as 

•  [c-Jl 

and  in  discrete  form  as 

f^^  »  exp  f-jl  tan' 

where  f. .  is  the  SOQ  comolex  field  distribution, 
c.  Fortran 
Argument  List : 

M  Integer  variable  denoting  the  calculation  path  within  the 
subroutine 

N<0  excite  the  mode  and  return 
N>0  Perform  Orthogonal ization 
L  Order  of  Mode  to  be  excited 
L  =  1,2 . 

Computer  printouts  of  the  MODER  subroutine  follow. 


ly/xj 


^  f(x.y)  ;  L  1 

J  o'* 


Cy 


l/x,)]  i,, 
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C 

C 

c 

c 

c 

c 
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SUaMUUTINC 

MUUe  UiSCMlMlNATlUM  WUUriNb 

THIS  MuoiiMt  tAires  fHc  L-fM  «uoe  !►  n  un-H«riUN  NumikR)  is  u 
ANU  SUHt'MtSSfeS  A^IMUtM»C  MUue>  IN  SUCCESSlVt  lltHAdONS 

•♦•••  fHib  coKT  uesivjNfcu  ru  .au^N'miss  t  «  o  onct  woa  ii-ao»/b  •••• 
•••••  fms  comt  uesiuNCu  ro  bAcirc  L*ibi  muue  huu  ••• 

LEVEL  2t  CU 

CUNMUN/f4tLT/LU  ( lejttAl  tC7lLtiebt2lfAll2U>  »»LtNt*Tb»N»»T  •UMAtUMT 
CJNMUN/AAY/«NO«tNHtetHAI>rH 

CUnPlEA  CO.Cf iLfCT.CFTfCC 
PI«3.1«lb92e!iA 

iF(N.ijT.u)  (ju  ru  luO 

LP»L*l 

OU  10  IsdNPIS 
AAax ( 1) 

OU  lu  jaUNPT 

1AJ«(J-1)*»«PTS*I 

Yr«A(a» 

TaSPrANlAAtYt)  •  LH 


NUUER 

2 

MUUEH 

3 

PWMEN 

A 

NUOCH 

S 

HUUER 

6 

MUUEM 

7 

NUUER 

S 

WtOEH 

9 

NOUEH 

10 

NUUER 

11 

miUEH 

12 

NUUEH 

13 

NUUEH 

lA 

MOOCH 

15 

MOOCH 

16 

MOOCH 

17 

MOOCH 

IS 

MOOCH 

19 

MOOCH 

20 

MOOCH 

21 

MOOCH 

22 
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10  CU(Uj>aCU(UJ)*CEAK<CM»>LA(0<UtTH  HOUEM 

•MireiftfAOO)  Ll»  MUUEM 

«00  FUHMAn/tlUH  •••  L  •  fUi^ttn  HUUb  rlAb  UbbN  EXCIfbO  ••••/)  MOUEH 

»fcruHN  moueh 

100  continue  NUUEf* 

REA0(!)0l  (CFlCdl  (laltdio^)  NUUCM 

HEali'tU  90  NUUEM 

OU  SO  Ial,N»>TS  NOUEH 

00  So  jal,64  MtiUEN 

IXua(j>l)*Nt>rS*l  MOOCH 

IXJ2ad2a-J)*NPTS*l  MOOCH 

aU  CFlCaxJdlaCFUUXUt  MOOCH 

NObaNHTS'NPY  MOOCH 

Pau.O  HOOCH 

P2aO.O  MOOCH 

CraCNP(.XIO*U«0,0)  MOOCH 

CFTaCMPLXtO.OtU.OI  HOOCH 

0XaAtlS<X(l)>A(2) )  MOOCH 

OUOa<UXaHNOM)*«2«(NPTS/NPTI  MOOCH 

C  aHITC(««666i000tHtCC«CrtA*<P«P2«lPLAb*lFI.Ae2  MOOCH 

00  20  laltNPTS  MOOCH 

00  20  jaltNPT  MOOCH 

tXja(j.l)*NPTS*l  MOOCH 

CTaCr*CONJu(CUUXJ)  )*CF1I.(1XJ>  MOOCH 

CFTaCFT*CONJU(C»-  IL  ( IXJ)  )  aCf  lU  tlXJt  MOOCH 

20  PsP*CU(IXUI*CUNJO(CU(lXJi )  mooch 

paH*OUO  MOOCH 

CCaCT*000  MOOCH 

aHITCiOtbOA)  CC  MOOCH 

6U4  FOHMAT  (/•!*«  *••  CC  a<2i>t!i.3«6n  ••♦•/)  MOOCH 

C  aMirC(6«a66)uOU<H«CCfCr<AA<P«H2tlFt.AUflKt.A(i2  MOOCH 

CTaCT/CFI  MOOCH 

CCaCT  MOOCH 

aHiTe(6too4i  CC  mooch 

CCaCF 1*000  MOOCH 

aHITCIOtOi)*)  CC  MOOCH 

OO  iU  laltNPTIi  mooch 

00,  Ju  jaitNPr  mooch 

lAja(J«l)*NPrS*l  MOOCH 

CO  (  t  AO )  aCO  <  1 X 0 )  -C I  'CF  1 L  (1  AO )  MOOCH 

i<*  H2aP2*COUAOI*CONOU<COdAO)  )  MOOCH 

JU  CONTlHOC  mooch 

M2aH2*OUO  MOOCH 

«HlTC(6tO6dl0UU<HtCCtCT>AA.HfH2tlFLA0*lFl.A02  MOOCH 

aHlTCIStbObl  H.H2tH  MOOCH 

cue  FOHMAr(/>l*H  •••  H>H2tH  a>J0t9.9»«H  ••*,/)  MOOCH 

bPPa^igHr  IP/P2)  mooch 

AAal.O  mooch 

C  AAaSuNr(P/(P-CAilS(Cn**2*Ht*M*HI)  MOOCH 

aHirC(o«cOT)  AA«bPP  mooch 

b«7  FOHMAf(/fl*M  •••  AAtSPP  a,20t9.9t«H  •••*/)  MOOCH 

00  AO  laltNOM  mooch 

AU  COIl)aCO<II*bPP  mooch 

C  HHITe(»tM*IOU0«HtCC«CTtAA<P*P2f iFLAb»lFCAb2  MOOCH 

C  C««  F0NMAri4M  OOUfH  a,201!>*9f / tON  CC>Cra,*01».»,/,23M  P«H2>lFLA«t  MOOCH 

C  AIFLA02  a  tJ01».b«2110l  MOOCH 

hCTuhn  mooch 

CHO  MOOCH 


20.  SUBROUTINE  OUTPUT 

a.  Purpose  --  This  routine  generates  three  intensity  amplitude  and 
phase  printer  slice  plots  through  the  field.  They  are  along  the  x-axis,  the 
y-axis,  and  the  "diagonal,"  defined  by  the  diagram  in  Figure  46.  Figure  47 
shows  the  flow  chart  for  this  subroutine. 


Figure  46.  Intensity  amplitude 
slice  plots. 


and  phase  printer 


LROP1.108-LROP1.136 


LR0P1.137-*LR0P1.157 


LROP1.158-LROP1.187 


LROP1.211-<'LROP1.251 


Figure  4"'.  Subroutine  OUTPUT  flow  chart. 


|I.|^JUIII  Iff 


b.  Relevant  formalism  —  The  slice  plot  uses  100  available  spaces  per 
line  for  plot  information.  The  point  printed  shows  the  percent  of  maximum 
amplitude  or  intensity  e.g.,  if  the  intensity  or  amplitude  is  35  percent  of 
the  maximum,  a  symbol  is  printed  in  the  35th  column.  Similarly  the  phase  is 
plotted  from  -180  to  130  degrees  with  zero-phase  at  the  center.  The  corre¬ 
sponding  maximum  intensity  amplitude  is  also  printed  out  with  the  appropriate 
spatial  coordinates. 

c .  Fortran 

Argument  List 

field  to  be  plotted 
number  of  points  in  the  y-direction 
number  of  points  in  the  x-direction 

coordinate  array 
number  of  plots  (1  to  3) 

(N)  =  1  -►  X  only 

2  -►  X  and  diagonal 

3  ♦  X,  diagonal,  and  y 

0,  the  constant  J  orders  used  is  NP  2/2  instead  of  MPl/2.  This  param- 
used  when  gain/phase  slice  plots  are  made. 

<AX  -  maximum  intensity  amplitude  of  the  field.  It  is  used  to 
establish  the  field  point  to  be  plotted  at  100  percent. 

^"AXIS  -  if  true,  the  x  axis  plot  is  generated 

OIAG  -  if  true,  the  "diagonal"  plot  is  generated 

Y-AXIS  -  if  true  the  y  axis  plot  is  generated. 

No  common  variables  are  modified. 

No  other  subroutines  are  called  from  this  one. 

Computer  printouts  for  the  OUTPUT  subroutine  follow. 


CU 

NP2 

NPl 
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N 


if  N  < 
eter  is 
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182 


n  r>  r>  o 


SUBROUTINE  OUTPOR 


76/176  OPT*l 


FIN  4.6+452  OA/27/79  12.23.47 


SUUMUU  T  1  Nt  00  rnuH  ( CO  •  N»<2 1  iMr*  1 1 A  « UMA A  •  ObO  1 « Ot(*2 1  ObO J 1 

our MUM 

2 

c 

OU  1  MUM 

J 

c 

mis  -^uoriMb  cuNsrMucrs  HMiNibM  huois  uf  hauial  ^woFiubS 

our MUM 

4 

c 

AT  THMbE  bOUALoY  Sl'ACbO  AiYOCbS  AMOUiYU  IHb  abAM 

our MUM 

s 

c 

uurMUM 

6 

Lbvec  CUtNH2<Nt>l«A 

uurMUM 

7 

COMMON  /aAY/  aNOMYNMeOtMAMIH 

our MUM 

d 

DIMENSION  PAbbdOOtJ)  tCUUJ  <All) 

UUFMUH 

V 

COhPuEA  Co 

out MUM 

10 

LOO I CAL  DEUl<Ob02«UbU3 

UUTMUM 

11 

c 

►•UT 

IN  PLorriNo  symuols 

UUrMUM 

12 

DATA  MOlNT/lHA/tOOr/lnl/tHLANA/ln  / t AMOINI/ In*/ 

UUIMUM 

13 

ANM2  ■  YM2 

OUT  MUM 

14 

TOTAL  ■  JOO*  •  ANP2  /  KLOAMNMII 

OUiMUM 

lb 

INUX2  ■  Nt>2/J 

UUTMUM 

16 

INUXJ  a  (2  •  NM2)  /  J 

UUTMUM 

17 

rnCTl  a  lUTAL  /  2.  /  ANM2 

ouTpum 

16 

TMtr2  •  fMETI  «  FLOAKlNUAb)  •  TOTAL  /  ANM2 

UUtPUM 

19 

THfcTJ  a  fHETl  •  FLOAT (INOXJ)  *  TOTAL  /  XNM2 

UUIMUM 

20 

100 

NMa  .yMI/2 

UUtMUM 

21 

00  lUOO  Xal.J 

UUIMUM 

22 

00  TO  ( lii<20«30)  iK 

UUIMUM 

23 

10 

IF  l.NOT.OE&i)  00  ro  luou 

OUtMUR 

24 

index  a  u 

UUIMUM 

2S 

THETA  a  IhETI 

UUTMUM 

26 

00  TO  1 

OUIMUM 

27 

^0 

IF  (.NOT.OE02)  00  TO  1000 

out MUM 

26 

INUEA  a  1N0X2  •  NMl 

UUtMUM 

29 

mbTA  a  mEr2 

OUIMUM 

30 

00  To  1 

OUIMUM 

J1 

JO 

IF  (.Nor.oEoji  00  10  1000 

OUIMUM 

32 

INOEA  a  INOXJ  ♦  NMl 

UUIMUM 

33 

TmeTa  a  iHErj 

UUIMUM 

34 

1 

00  410  1  a  l.NFl 

OUTMUM 

35 

IrtEF  a  l*INOhX 

OUIMUM 

36 

FA0E<1«1I  a  CArtS(CU<lHEFH 

OUIMUM 

37 

OOMl  a  A1MA0<CU(1HEF) 1 

OUTMUM 

36 

0UM2  a  MbALICUdHbFI  ) 

OUTMUM 

39 

IF  IUUM1.EU«O.O.ANO«OUM2«Eu.O.OI  OU  TO  412 

OUIMUM 

40 

*u 

FAOEd>2)  a  S7.J4ArAN2(OUMltOOM2) 

UUIMUM 

41 

00  TO  410 

OUIMUM 

42 

*1<! 

FA6Ed«2>  a  0.0 

UUIMUM 

43 

•  10 

OMAX  a  AMAXI  (UMAX.  MAObd  til  1 

OUTMUM 

44 

aMlTE  (6tS20>  ThETA 

UUIMUM 

45 

biO 

FOMMATOJHI  CUdtJ)  HLOITbO  HAOIALLT  AT  tF7,2i9M 

ObOHEES  1 

OUIMUM 

46 

IF  IH.NE.l)  00  TO  1001 

OUTMUM 

47 

OMAXFaUMAA 

OUIMUM 

46 

I F 1 NMbO .NE . 0 . ANU .N , 0  r . 0 ) uMAXHauMAX/aNOa 

UUIMUM 

49 

lUOl 

IF  (UMAA.EU.O.Ol  OMAX  a  1.0 

OUIMUM 

30 

SCALbl  a  100.0/UMAX 

UUtMUM 

SI 

SCALE2  a  SO. 0/1 no. 0 

OUTMUM 

S2 

c 

HMlNf  AJIfeS 

UUtMUM 

53 

aMlTt  <»t4«0IUMAXF 

UUtMUM 

54 

FOMMAT  dH  tr2tlHOtT27t2n2S«l92t2MbOtlStt*lJHMAGNITUOfc  (aitTITtEHrS 

OUTMUM 

S5 

•tTlOlfSHlOO  ■•tiU.AI 

OUTMUM 

S6 

aMITE  I«*4S0> 

UUtMUM 

ST 

4&U 

FOMMAT  dn  tr2t4H>|oOtr20t JH-90*TS2tlMU.7S8tl9MMMASE 

ANOLb  <  *  1 1 T  76 

OUTMUM 

56 

•tiH*00. T 101 t4H*|OUt  7At InMt IX.4nAMMLt4At9nMnASE) 

OUIMUM 

S9 

c 

FAoEILtJI  AS  KNINtlNU  LlNb  —  FIHST  bLANK  IT 

OUIMUM 

60 

DO  420  L  a  It  104 

OU  1  MUM 

61 

•  ^0 

MAOEILtJI  a  olAnA 

OU 1  MUM 

62 

c 

PMlNT  A  LlNIi  FOH  bacn  vALUb  OF  1 

OUIMUM 

00  4 JO  1  a  ItNMl 

UUIMUM 

64 

OU  440  L  a  ltl0lt2S 

OUIMUM 

6S 

MAbElLtJI  a  OOr 

UUIMUM 

66 

FAO£IS1.9*SCALb2*FAUbdt2l  tJI  a  AMOINT 

UUtMUM 

67 

mELAMM  a  SC.‘.Lbl  •  FAObdtl) 

OUIMUM 

66 

FAOCd.9  *  HbLAMM  tJI  a  KulNl 

OUIMUM 

09 

aMlTE  (St470)  (HAOcILtJI tcaltlOA) t  AdItHELAMM  t 

MAObdt2l 

UUIMUM 

70 

•  /O 

FOMMAT  dn  tl04AltjF0.2) 

OUtMUM 

71 
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PAU£d.9*SCALEl*PA«>Edd)  t  Jt  a  dCANA 

UUTPUH 

tz 

430  PA0E(9l.9*9CALE2*PA0£di21  >31  a  BLANK 

our PUN 

T3 

1000  CUNTIiTUE 

OUfPUH 

r4 

HCIUMN 

UUTPUM 

T5 

uutpuh 

/» 

bNU 

UU  rpuN 

n 
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SUdMUurlNt  Uurwur  tAtN>vl(1AA»AAAli»tUlAbtrAXiti> 

N**laN»>rbt 

TnIS  NUUllNii  CUNSfMOCf^  r'MliOlbM  bCXCb  HUUlS  UF  Ilib  CUWMtbX  FlbLO 
ACUNIj  (1)  THb  i  XXlb<  (^1  ALUM(»  A  UiAMNAL  ANU  (Jt  ALUNti  Inb 
X-AAl:a  rnNOUOn  rnb  FIbLU.  t-AxlS  t»bUfS  OMCr  F0»«  cavity  ^AMAMbTtMS 
LbvEL  CU«i«**2tM»'l.x 
CUMI4UN  /mat/  ■NUMtNMbUtMAHTM 
COMMON  />*Utbll>/  FCOlaO 
CUMMLbX  CU 

LOOICAC  XAXiStOlAu. TAXIS 

OImENSIOT  PAOei 1 VO.J) • lOlAO(l^d) •XMIIVU) »TMil90) .CU(i) fX 11> 
dimension  IMAOIJI  .  IINKJ)  •  tructjl 
C  MUT  IN  PCOTTInO  SVMaOLS 

OATA  MOlNt/ln+/,UOT/lMI/«BLANA/lr1  /  »x»»UlNf  /  lM»/ tMOlNA/ IM»/ 

Oai  A  IMA(j/«nMA<>N««nl  Tuu<+nb  (Ml  /  ♦  I  In  I /aminTE  •  AMNSI T  (Amt  (•(  / 

If  (><I.UrSO.(il  .u.>  00  10  lUu 
t»OlNT  »  M(HNA 
00  UU  D'alfJ 
110  iriTL(tO)  •  iMAOtlHI 
GO  TO  190 
l(J0  PQlur  m  fQlNl 
00  120  tM«l«0 
120  iriTLdOl  a  UNTIIHI 

190  Continue 

NPa  NMl/2 
IF(N.Cr.U)NMaN«>2/2 

NNalAUSINI 
00  1000  AaltNN 
GO  TO  (1<2>3I (A 

1  IF  (.NUT.XAXlS)  GO  TO  1000 
NF2XaNFl+«NF-l) 

C  X-AXIS  PLOT  <i.b.  YaOl 
00  AtO  I  a  ItNMl 
XMdlaxtl) 
tPlUaxINMI 
IFlN.LT.UtTHdJaO.i/ 

IMbF  a  I*NP2X 

PAGCdtll  a  CAUSICUdPEFI  ) 

IF  IHLOT9G.OT.O.)  KAOb d t i I aMAuS (i t 1 I a+E 
OUMl  a  AlMAOiCUdHEF)  ) 

0UN2  a  MtALlCUdMEF)  > 

IF  (UUMl.eO«O.O.ANU«OUM2«bO<U*0>  GO  TO  412 

411  PAOCdtEI  a  9T.jaArAN2(0UMl«UUM2> 

GO  TO  410 

412  PA«)£tl<2l  a  0.0 

410  UMAX  a  AMAXl  (UMAX.MAubdtlH 
UMAXPauMAX 

IF (NMEG.Nb.O.ANU«N.Gr .U.ANu.PLOTSG.bl .0.1  UMAXPaUMAX/aNU« 
IFiNHbO.NE.O. ANU'N.GT.O.Ano.PLOTSG.uT .0.1  UMAXPaUMAX/aNOaaa2 
GO  TO  1001 

2  IF  (.NOr.OlAGl  00  fO  lOOO 
OO  10  tal.NPl 
llaNPl.l-l 

IUlAttdl)a(MiNOdlf  l)-l)aNMl*ll 

10  continue 
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00  SlU  I  a  ItNPI 
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lOO 
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LKUPl 
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LMOPl 
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LMOPl 
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LHUPl 
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LHUPl 
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LMUPl 
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LMUPl 
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LMUPl 
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LMUPl 
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LMUPl 
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LMUPl 

19G 

LMUPl 
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LMUPl 
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LMUPl 
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LMUPl 
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LMUPl 
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LMUPl 
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lHll>aXll) 

kMOPi 
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MTWaNPfi*! 

kHUPl 
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kHOPl 
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rt'il)a*(ir>») 

kHOPl 
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kHUPl 

169 
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kHOPl 

1  ro 
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LHOPl 

in 
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kHUPl 
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kHOPl 

1  73 
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kHUPl 
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kHUPl 
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aiu 
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kHUPl 
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IF  (fUUroG.br.U.)  (jO  to  9J9 

kHUPl 
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kHUPl 
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kHUPl 
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IF  (OUHl.eo.U.O.ANU.OUM2.bo.O.O)  00  (0  012 

kHOPl 

198 

oil 

»A(i£dt2/  a  a/.jaXTA/VEfUOMi.OOME) 

kHOPl 

199 

80  To  610 

kHUPl 

200 

012 

HAOCdtE)  a  0.0 

kHUPl 

201 

OiO 

IF  (FkOTaO.kT.O.)  OMAX  a  AMAXl (UMAX*FAO£ d • 1 ) ) 

kHUPl 

202 

IF  o'korso.or.o.)  ou  to  j26a 

kHUPl 

203 

aMITE(6tO20) 

kHOPl 

206 

020 

fommat (70HiAMPkiruufct)'HAab  Hkorrbo  in  y^uihection 

THHOOGN  CENTER  0 

kHOPl 

205 

*F  OCALC  I 

kHUPl 

206 

GO  TO  1001 

kHUPl 

207 

J20A 

«MlTb(0td<i2) 

kHOPl 

206 

002 

FOMMAT ( TOHllNTENSKT.HHAab  KkOTTEO  IN  Y-01H£CTiON 

THHOOGN  CENTER  0 

kHOPl 

209 

Xf  UCAkC  ) 

kHOPl 

210 

loot 

IF  (OMAX.EU.O.Ol  OMAX  a  l.u 

kHOPl 

211 

SCAkEl  a  lOO.O/UMAX 

kHOPl 

212 

SCAkb2  a  SO.U/’IOO.U 

kHUPl 

213 

C  PNINF  AXea 

kHUPl 

216 

adlTE  (OtAOOl  ITlTka  ONAAH 

kHUPl 

215 

AOO 

FOMMAT  (IN  «T2tlHO.r2Tf2n2a«ia2f2HSO.iaat JAO 

.TTT.2NTS 

kHUPl 

216 

••noitOHigo  ■«oi2.At 

kHUPl 

217 

iFiN.toT.OlaMtTE  (6.090) 

kHUPl 

218 

AOU 

FUNWAT  (IH  .TJ.OH^KlOf  r26.3M>00.)a2>lNO.Iad.iaH)>HASE 

ANGkb 

(*)  . 

TTO 

kHUPl 

219 

•fiH*VU<ri01t4H«18U«  /  AtlHMtOAttHAtOAtlrfTI 

kHOPl 

220 

IFlN.kT.OTaMiTb  16.091) 

kHOPl 

221 

4al 

fumnai  (IN  .ijioN^iao.TEo.jN'Vo.iaE.tNv.roo.iaNKHASfc 

ANUkb 

(•)  . 

IT6 

kHUPl 

222 

a.  JH*9U.T101.OH*100.6X.ONXNt.)'.6A.tNV) 

kHUPl 

223 

C  kOt 

PAoC(k.J)  AS  PNINTINO  kl>'<«:  ••  FlNsr  akANX  IT 

kHUPl 

226 

00  020  k  a 

kHOPl 

225 

A2U 

PAuC(k.J)  a  akANX 

kHOPl 

226 

C  ^«41NT  A  LlNC  FUM  bACM  VACUC  UF  1 

kHUPl 

22  7 

NbNaNPl 

kHOPl 

228 

IF  (X.tU.J>NbHaNI>2 

kHUPl 

229 

IF(N.kT.O)60  TO  JOl 

kHUPl 

230 

00  OJO  I  a  l.NbM 

kHOPl 

231 

00  OoO  k  a  1.101.20 

kHUPl 

232 

%%u 

PAb£(k.JI  a  JOT 

kHOPl 

233 

PA(>CO1.6*SCAkb2*PX0bd.2)  .3)  a  APUInT 

kHUPl 

230 

PA(a€d.9*SCAkeiaPA(>bd«l)  .31  a  POINT 

kHUPl 

235 
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r  ( AH  <  I » •♦i*  rn  ( u  ••a  1 

LMUPl 
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•tMITt:  (e««7U)  (Uattiao)  1)  f  rp(  II 

LHOPl 

^Jf 

4/0 
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LKOPl 

ajs 
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LMUPl 

aJ9 

*'A(iE<SUb*SCALEa*PA()£(I  lai  tji  ■  BLANK 

LMUPl 

aao 
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lmopi 

aai 

JUl 

00  330  1  ■  ItNEM 

LHUPI 

a*2 

00  340  L  ■  If  101  tab 

LMUPl 

243 

l>A«iEIL  t3)  a  OUT 

LMUPl 

244 

PAUE(bl.b*SCALCa*PA<>E(Ita)  f3l  a  AHOlNf 

LMUPl 

24b 

PA«>E(lfb*SCALEiaPA(iE(ltl)  tJI  a  tfuiNT 

LMUPl 

24« 

aWirS  (6f370)  (PA(iEILf3)tLalf|u«ltAP(Il  irPIl) 

LMUPl 

24  7 

J/0 

FOHMAT  (1H  f lOaAltaFO.^I 

LMUPl 

24S 

PA(>EUfb*SCALEiaPA(jfc(ltl)f3t  a  BLANK 

LMUPl 

249 

JJU 

PAI)EISl.b*SCAL£a*PAUEIlfa)>JI  a  blank 

LMUPl 

abo 

luuo 

CONTINUE 

LMUPl 

2bl 

PETUHN 

LMUPl 

2b2 

2b3 

ENO 

LPOPl 

2b4 

21 .  SUBROUTINE  PLTOT 

Subroutine  PLTOT  is  called  at  the  end  of  subroutine  QUAL  to  calculate 
and  generate  a  printer  plot  of  far  field  power  versus  radial  distance  in 
RX/D  units.  The  integrated  fractional  power  to  several  far  field  radii  are 
calculated  by  multiple  calls  to  subroutine  POWWOW.  The  power  and  radius 
values  are  stored  by  PLTOT  in  array  form.  The  arrays  are  then  tabulated. 

A  simple  printer  plot  is  also  generated  without  the  necessity  of  an  inter¬ 
polation  scheme  or  other  formal  calculations. 

Figure  48  is  the  Subroutine  PLTOT  flow  chart  and  is  followed  by  the  PLTOT 
computer  printouts. 

Argument  List 

DB 
DX 

IMAX 
IPLT 
PT 

RMAX 
TITLE 
WL 
XCEN 
,XX 

YCEN 

:max 


near  field  beam  diameter 

grid  spacing  in  far  field,  RX/D  units 

number  of  field  points  across  grid 

flag  -  not  used 

total  near  field  power 

not  used 

run  identification 
wavelength 

X-position  of  center  of  interest 

X-position  array 

Y-position  of  center  of  interest 

far  field  intensity  array 

not  used 
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CALLED  FROM  QUAL 


I  PLTOT  ) 


FOR  SEVERAL 
FAR  FIELD  RADII, 


FIND  POWER 
IN  BUCKET 


DEFINE  FRACTIONAL 
POWER 


TABULATE  POWER 
VS 

FAR  FIELD  RADIUS 


PRINTER  PLOT  OF 
TABULATION 


DO 

23 

1-1,30 

CALL 

POWWOW 

PW 
=  PW/s 

4(1) 

^(l)/PT 

1 . — 

0 


APR26.27 


APR26.28 


APR26.29 


APR26.  30  - 
PLTOT.  78 


APR26.  34 


Figure  48.  Subroutine  PLTOT  flow  chart. 


Relevant  variables 

IPAGE  Hollerith  character  string  comprising  a  single  vertical 
position  of  printer  plots 

PWA  fractional  power  array  corresponding  to  RRD 

RRD  radial  distance  array  corresponding  to  various  far  field 

bucket  sices. 
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SUHttOUT  [»*£  Puroi  (  UAt  AA«  2HAA<  it  IKUTt  nTLCi 

PLTOT 

2 

1  t  XCtN  •  f  OH  •  at.  * 

APN26 

21 

LEVEL  2t  aC 

APN2b 

22 

c 

rms  huumnc  id  nxKts  m  isu-iivrtNSirT  klut  of  the  fah  FibLu 

PLTOT 

4 

c 

SHUT  ANO  (21  CALCULArtS  AivU  F'LUCS  IHt  I'OaEH  vEMbUS  FAN  F  IbLO 

PLIOT 

s 

c 

RAUIUS. 

PLTOT 

6 

LbVEL  2<  IMAX<AX<2 

PLTOT 

7 

OlMEivSlON  AA(1><  2(  1  1  •  firLb(2U> 

PLTOT 

6 

OIMENSION  FNAOUIt  HNU(JUI  (INAUbdUi) 

APN28 

23 

DATA  HNO/ 

APN2S 

2A 

APN28 

2S 

0A(A  tBLIVK/*H  /f  II/lnl/(lNr/lH./ 

APN26 

26 

c 

UlrtCNSION  LAH(S) 

PLTOT 

10 

c 

DATA  NUC.LAB  /  6<H0<Qa<4u<2U«10«S«2»l«12*0  / 

PLiOT 

11 

c 

call  OArb(HNrN«UAYtrEAN) 

PLTOT 

12 

c 

call  riCLOCA(MN,MIN.seC) 

PLTOT 

13 

c 

(iO  TO  (S2tSlJ  <1NLT 

PLTOT 

lA 

c 

FLOf  FAN  field  ISO-lNtENSlt tbS 

PLTOT 

IS 

c 

ASCLaJ./HNAA 

PLIOT 

16 

c 

call  INI r (csi2Ec»a>«io.) 

PLfOT 

IT 

c 

call  NLor (3.a«j.s<2J) 

PLTOT 

18 

c 

CALL  (ASI2(.2i.U> 

PLTOT 

19 

c 

PLTOT 

20 

c 

MNITE<98tl) 

PLTOT 

21 

c 

1 

FONMAr(jeH  FAN  FIELD  ISU^lNThNSt TY  CONTOUNS  ) 

PLfOT 

22 

c 

call  TASlZ(.12t.0HI 

PLIOT 

23 

c 

CALL  IANLr(U.tA«S»0.tUI 

PLTOT 

2A 

c 

aHlTE(98»2)  rt  rLEtNMAA«MN(niUAY«TbAN.r1M<MlN.SbC 

PLiOT 

2S 

c 

2 

FOnMAT ( 1A<20A«//29h  The  LAHObST  KAOlOS  PLOTTED  a,FA. 1 t9MN*LANH/D  / 

PLfOT 

26 

c 

l/SriOATb  «A2tlrl/,A2tln/tA2<lOAtSHriNE  tA2«  1N<  ,A2>  1N>  t  A2) 

PLIOT 

27 

c 

call  SYNHOL(0.«U.t.lS«J»U.>>l> 

PLIOT 

28 

c 

DO  190  Ial,A 

PLtOT 

29 

c 

ADPa.0«*l 

PLTOT 

30 

c 

AONa,u3»l 

PLiOT 

31 

c 

CALL  OASFI<AON«AUF) 

PLTOT 

32 

c 

RNaRMAAai/«  ^ASCL 

PLTOT 

33 

c 
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CALL  CINCICHAOC«NN.CCEN<tU.«U.) 

i>Lfot 

34 

c 

CALL  NOASH 

PLtOT 

3b 

c 

CALL  1SU(  AXtAAtZtZHAXtO.tlMAAf lHAXtACEN*YCEN.ASCLfNUZ>LAH*lHAX) 

PLTOt 

36 

c 

CALL  FI HI 

PLtOT 

3T 

c 

IF  (INLT.EU.JI  SO  TO  SI 

(»LrOT 

38 

c 

PLOT  NONtH  VS.  N«LaMHUA/0.  THIS  IS  DONE  ABOUT  ElTMbN  THE  CENTHUIU 

PLIOT 

39 

c 

ON  PEAK  (NTENSITT  .hICHEVEN  OLHUNSTNAIbS  MAAiHUH  PENFORHAHCEl 

(>LfOT 

40 

c 

iZ 

call  INII ((SXZEC.8.tlU.) 

PLTOT 

41 

c 

call  PLOi (l.Stl.tZJl 

PLiOT 

42 

c 

CALL  AAIS(U. tO. t 1 1HHAU1US>NL/Ofll«»..9.t0. tNHAA/A.l 

I»LfOT 

43 

c 

call  AAlS(U.t0..1JHNENCh>«r  NUaCN.lJfb.t9U.t0.t20.) 

PLIOT 

44 

c 

call  (>NlU(d..0.«*.f  16.S..2U> 

PLIOT 

4S 

c 

call  rxsiz(.is..ov) 

PLtOT 

46 

c 

CALL  TAPLT(2..8.t0..0) 

(■•LfOT 

47 

c 

sRITb(98tSV)  TITLEfHNTHtOAT.YbAN.HH.HlN.SbC 

PLIOT 

46 

c 

F0NHAT(28H  fan  FIELD  DUAL! FT  (FFT)  //20AA//5HUATb  f A2t lH/.A2t IH 

PLfOT 

49 

c 

l/tA2tlOA«SHf  IME  f  A2t2(  lHt.ii2M 

PLtOT 

so 

c 

CALL  NOVbA(U.tU.) 

PLTOT 

SI 

SI 

IHA0aNMAA*2. 

PLfOT 

S2 

c 

PNINT  POhEN  VS.  N*bAHHUA/U 

PLTOT 

SJ 

hN1TE(6.22)  title 

PLTOT 

S4 

42 

FUmMAI  (///•lA>2UA«t///<3AO(2A«l«HM..><(FMACTlUN)  )  ,/) 

PLlOf 

Sb 

UU  23  laltlHAU 

PL  rot 

»6 

OU  2S  Jaltb 

PLtOt 

bt 

WH0<3»  a,i«<  l  l-l)««j.*Jl 

HLror 

btt 

call  FUaaOa  l  Imaa<  Oa<  aa,  ACtN«  rCENt  PaAljl  ) 

PLtOI 

se 

PaA(JI  a  PaAtJI  /  HT 

PL  tor 

60 

2S 

IF  (IHUr.LEall  CALL  LlNeA(HWU(Jiaa./HNAA 

PLtOt 

61 

4J 

«H(Tt:(6«2ai  (HHU(K)  tFWAdll  tAai.s) 

PL  rot 

62 

MHuAaO.O 

PLTOf 

63 

UMMOaO.l 

PLtOt 

6A 

OU  23  lal,3U 

APH26 

27 

CALL  H0«a0ti(lMAA<OA<AA«2<ALtia*rCEN*MHU<t)  tF'aA(I)  ) 

Apwee 

28 

23 

^'aAd)  a  t>«A(l)  /  »>r 

APH26 

2« 

OU  2<a  lal,6 

APH26 

30 

Jl  a  (i-lias  *  1 

APH26 

31 

32  a  J1  *  A 

APH26 

32 

2S 

aMlTb  (6<2ai  (MMU(K) •faAlK) «AB31,3^| 

APM26 

33 

FUMMAT (4(AA«Fa.ltFa.Si 1 

PL  tor 

78 

26 

CUNT INUE 

PLtOI 

76 

IF  (lULr.LEali  call  FINI 

PLtor 

80 

aHlTe(6*1100i  aLtOU 

APM26 

34 

IlUO 

FUMHAT(lNl/////4«A<16HFtHCENI  ruTAL  FLUX  /ASX* JHHLa»Fa.6*AH  Ua 

APM26 

35 

X«F«.2/2X«6»1MA0  0«23X«2H^at23x«2n6U<«3A«2H7S«22A«3HlU0  > 

APH26 

36 

OU  1310  laa.lOO 

APH26 

37 

1310 

IFaGEII)  a  lULNA 

APH26 

38 

INAU  a  1 

APM26 

39 

OU  1320  LlNE«l*3l 

APH26 

AO 

ll>AaEtl>aII 

APM26 

41 

l»'A6E(26lall 

APH26 

42 

lPA(>E(Slla[I 

APH26 

43 

IPAaE(76laU 

APH26 

44 

IPAQEliaUaU 

APH26 

45 

DAO  a  (LlNE-l>a.l 

APM26 

46 

PCH  a  HHU(IMAO) 

APN26 

47 

IF  (assihauopch) •(>r..ui)  UU  ru  uis 

APH26 

48 

INUEA  a  US  *  P«A(1HAU)«Iwu. 

APH26 

49 

IHAO  a  IMAU  *  1 

APM26 

bO 

IPaQEIINUEa)  a  IPT 

aPh26 

bl 

HNlTEIStlllU)  MAO  41PAUE 

APM26 

b2 

1110 

F03MAT  ( 1X«FA,^*2A»101A1  ) 

APM26 

b3 

IPACEdNUEAlatdLNK 

APH26 

S4 

OU  TU  1320 

APH26 

bS 

131S 

WHITE  (6*11101  HAOtlPAOE 

APH26 

b6 

1320 

CUNdNUE 

APM26 

b7 

hETUHN 

PLIOT 

83 

ENU 

PLtor 

84 

22,  SUBROUTINE  POWWOW 
Calls:  N/A 
Called  by:  QUAL 

a.  Purpose  --  POWVOW  is  called  by  QUAL  to  apply  an  aperture  to  the  tar 
field  intensity  field  for  computing  power  in  the  bucket.  Figure  49  shows  the 
POWWOW  flow  chart,  followed  by  the  POWWOW  computer  printouts. 

POWWOW  passes  the  intensity  field,  x  and  y  centroid  locations,  and 
bucket  size.  It  returns  the  power  in  the  bucket  in  parameter  PRB  (PWR) . 
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POWOW  defines  a  radius  function,  RD,  for  converting  rectangular 
coordinates  to  a  radius  bucket  size.  Each  x,y  coordinate  is  searched 
to  determine  if  it  is  within  the  bucket.  If  so,  the  power  at  that  point 
is  added  to  the  sum  for  the  bucket. 

After  all  locations  have  been  checked,  control  is  returned  to  QUAL  along 
with  the  power  ntimber. 

b.  ■  Relevant  formalism  --  Each  grid  point  (X,Y)  lies  at  the  center  of  a 
square  AX  on  a  side.  In  the  logic  to  determine  whether  a  point  falls  within 
the  radius  of  interest,  an  attempt  is  made  to  account  for  grids  which  fall 
partially  within  the  radius,  RAD.  These  points  are  weighted  between  0  and  1 
according  to 


P  =  (RAD-R  .  )/(R  -R  .  ) 
min  max  min 


where 


P  is  the  weighting  factor, 

R  is  the  radius  to  the  furthest  corner  of  the  grid,  and 
max 

R  .  is  the  radius  to  the  nearest  corner  of  the  grid, 
min  ® 


All  grid  points  with  R  less  than  RAD  are  given  a  weight  of  1,  all 

ill  aX 

grid  points  with  greater  than  RAD  are  weighted  0. 

Argument  List 


AA 

DX 

NPTS 

PWR 

RAD 

XAR 

XCEN 

YCEN 


far  field  intensity  array 

separation  of  far  field  points 

number  of  array  points  in  one  dimension 

power  in  the  bucket  -  returned  to  calling  routine 

radius  of  far  field  bucket 

X-position  array  for  intensity  field 

X-position  of  center  of  interest 

Y-position  of  center  of  interest 


Relevant  Variables 


DS  area  associated  with  a  grid  point 

PER  weighting  factor  for  a  grid  point,  between  0  and  DS 

X  X-position  of  grid  point 

Y  Y-position  of  grid  point 
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POWWOW.  8 


POWWOW.  13  — ^ 
POWWOW.  28 


SEARCH  THROUGH 
INTENSITY  POWWOW.  23 

ARRAY,  AA 


POWWOW.  27 


Figure  49.  Subroutine  POWVOW  flow  chart. 


SUBROUTINE  POWWOW 


76/176  OPT»l 


FIN  4.6+452 


04/27/79  12.23.47 


SObWOUriNC  UA<  XAH» 

AAt 

PuaaOa 

4 

XCtN«  WAU*  t’mH  ) 

PUaaUa 

J 

mis  HOurtNt  APHLits  an  At'twiuMt  ru  ine  ^ah  fielu 

iNibNSI lY 

PUaaUa 

• 

FAITEHN  t-UH  uETt><MlNlN(j  eUatM  VS«  M+WAMUUA/O 

PUaaOM 

S 

LtvEL  it  NHlStAANiAA 

KUaaUa 

s 

JlMENSlUN  XANIUi  AAi  1  > 

PUaaUM 

1 

wuiAAtvri  lAt  ir)>suHr  i  (ausiaxi  •ix+ua/^.i  (AbsiTY)  *uY/^.*ir >••<;) 

KUaaUa 

6 

PMN  ■  U. 

PUaoUa 

9 

0Y«0X 

PUaaUa 

10 

os  *  ox  ••  i 

PUaaOa 

U 

OU  luu  ItXaliNHIS 

KUMMUa 

u 

XaXAMdlAt-ALEN 

PUMMUM 

IJ 

00  lUU  IlYaltNt>rS 

PUMWUa 

14 

YaXAM«IlY)«YCEN 

PUWMUa 

IS 

NOMaNUlAiYdfU 

PUawUa 

1« 

WMMaMUlXtYflcl) 

PUaaUM 

IT 

NMWaNU(AtY«-l(l) 

PUaaUM 

Itt 

rtHNaMU(X«Ytlfl) 

puhwOm 

19 

HEwauS 

POM MUM 

40 

NHAAaAMAAl  (NKni 

PUMHUM 

41 

IF  (rtMAX.LC.WAOl  (iO  TO  lUU 

PUHMUH 

42 

P£H  a  u. 

PUMHUM 

43 

MNINaAMlNl 

PUHHUM 

44 

IF  IRMlN.OE.HAO)  (iO  10  lUU 

pOhhUm 

4S 

PEWa (RAO'WMINI / (HMAX-MNInI •US 

PUMHUM 

46 

PaMaPwH«AA llIX»(llY-l) ‘NH 1 S» ‘PEN 

PUMHUM 

47 

PEIUHN 

POmhOm 

48 

£NU 

POHHOH 

49 

23.  SUBROUTINE  QUAL 

Called  by:  MAIN 

Calls:  TILT 

STEP 
CENBAR 
POWWOW 

QUAL,  entered  with  a  call  from  MAIN,  is  used  to  calculate  quality  of 
complex  field.  Figure  SO  is  the  flow  chart  for  the  QUAL  subroutine.  Subrou¬ 
tine  QUAL  computer  printouts  follow  Figure  50.  A  decision  is  made  whether  to 
use  the  C0^®10N  complex  field  or  whether  to  read  one  in  from  tape.  A  decision 
is  then  made  as  to  whether  or  not  to  save  whatever  input  complex  field  is 
used.  This  is  for  later  restoration. 


Variables  are  initialized  and,  based  on  the  call  statement  input  vari¬ 
ables,  a  decision  is  made  whether  or  not  to  apply  a  phase  correction  to  the 
complex  field,  that  is,  should  tilt  and/or  spherical  components  be  removed? 
If  not,  QUAL  branches  to  the  lens  section. 


Subroutine  QJIAL  flow  chart. 


If  yes,  then  a  call  is  made  to  subroutine  TILT  and  the  linear  and  quad¬ 
ratic  phase  components  are  removed.  If  spherical  components  are  to  be 
removed,  then  this  is  done.  If  not,  control  passes  to  the  lens  section. 

The  lens  strength  required  to  bring  the  beam  down  to  a  specified  radius 
is  computed.  This  is  then  applied  to  the  field,  CU,  via  the  relation 


U  =  U  exp 


yh 


(152) 


The  total  beam  power  as  transformed  by  the  lens  is  then  calculated.  If 
there  is  no  power  in  the  transformed  beam,  an  error  message  is  output  and 
the  job  stopped.  Otherwise,  some  saving  parameters  are  initialized  and  the 
transformed  field  is  saved  on  tape. 

Subroutine  STEP  is  called  to  take  the  transformed  beam  to  the  far  field. 
The  location  of  the  far  field  peak  intensity  is  found.  Strehl  and  power  in 
the  bucket  are  calculated.  Subroutine  CENBAR  is  called  to  find  the  percent 
of  far  field  centroid  (intensity).  Subroutine  POWIVOW  is  called  to  find  the 
percent  of  far  field  power  in  a  given  radius  around  the  centroid.  All  of  the 
calculated  data  is  printed  and  subroutine  PLTOT  is  called  for  beam  quality 
plots. 

QUAL  then  restores  the  complex  field  to  what  it  was  at  entry  and  con¬ 
trol  is  returned  to  MAIN. 
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24 .  SUBROUTINE  REGAIN 
Called  from:  GDL 

Calls:  BLUMIT,  CPUTIM,  FUHS,  GAINXY,  ISOCAV,  SIJ-fPGG,  VINO 

a.  Purpose  --  REGAIN  is  primarily  a  driver  program  to  direct  the 
recalculation  of  the  cavity  gain  medium  at  the  end  of  each  iteration  as  shown 
by  Figure  SI.  Subroutine  REGAIN  computer  printouts  follow  Figure  51.  The 
routine  controls  the  type  of  kinetics  calculation  (numerical  or  analytical 
closed  form),  calculation  of  the  FUHS  effect  on  the  medium  density,  genera¬ 
tion  of  plots,  and  input/output  of  medium  data  on  disk.  Most  of  the  control 
for  this  routine  is  read  in  from  subroutine  CAVITY. 

b.  Relevant  formalism  -  The  only  formal  calculations  oerformed  in 
REGAIN  are  the  summation  of  cavity  aerodynamics  and  FUHS  effect  induced 
optical  path  variations,  and  the  averaging  of  newly  calculated  gain  distribu¬ 
tion  with  that  of  the  previous  iteration.  A  simple  linear  averaging  or 
weighting  algorithm  is  used: 


ow  chart 


G  =  (G^  (1-A)  +  G^A)  exp  |(2ir/A)  OPd) 


flSol 


where 


G^  is  the  amplitude  gain  field  from  the  previous  iteration, 
G^  is  the  newly  calculated  amplitude  gain  field, 

OPD  is  the  stan  of  optical  path  differences, 

X  is  the  wavelength. 

Argument  List 

XCT  the  number  of  cavity  elanents  in  the  resonator 

NIT  the  iteration  number 

Commons  Modified 

/CCG/ 

Variables  Modified 

CG  the  complex  gain  field 

Relevant  Variables 


AVGG 

weighting  factor  for  averaging  new  and  old  gain 
defined  by  input  to  GDL 

arrays  - 

XBASE 

integer  reference  number  to  control  reading  and 
power  densities,  gain,  etc.  to  and  from  disk 

writing 

IPDEN* 

flag  for  plotting  power  densities 

rusE* 

flag  for  FUHS  calculation 

NGPLOT* 

flag  for  plotting  gain  fields 

NGTYPE* 

flag  for  controlling  type  of  kinetics  calculation 

NSA* 

number  of  gain/phase  segments 

NXA* 

number  of  points  in  flow  direction 

NYA* 

number  of  points  across  cavity  (side-to-side) 

•Defined  by  input  to  CAVITY 

non 
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25 ,  SUBROUTINE  RGRD 


This  routine  regrids  a  complex  amplitude  field  by  adding  zeroes  to  the 
array  on  all  sides  of  the  input  field.  Figure  52  is  the  flow  chart  for  sub¬ 
routine  RGRD.  Points  added  have  the  same  separation  as  the  original  field. 
■No  interpolation  or  other  formal  calculation  is  necessary.  Use  of  this 
routine  has  the  effect  of  increasing  the  guard  band  around  the  field. 

.Argument  List 

NRGD  desired  number  of  grid  points  across  field 
Relevant  Variables 

DX  separation  of  grid  points  before  and  after  regridding 

INDX  counter  or  index  used  to  locate  old  grid  within  the  new  grid 

NSQR  total  numer  of  points  in  regridded  field 

Commons  Modified 

/MELT/ 

Variables  Modified 

CFIL  temporary  field  storage  array 

CU  complex  amplitude  field 

NPTS  number  of  grid  points  in  x-dimension 

NPY  number  of  grid  points  in  y-dimension 

X  x-position  array 


26.  SUBROUTINE  ROSN 

a.  Purpose  —  The  purpose  of  subroutine  ROSN  is  to  provide  an  accurate 
and  rapid  numerical  interpolation  subprogram  for  the  evaluation  of  cavity- 
induced  density  perturbations.  The  subroutine  uses  cubic  spline  processed 

\  r\ 

data  representing  aerodynamical ly  parameterized  data  to  interpolate  to  the 
cavity  mesh  for  the  run  in  question  as  shown  in  the  ROSN  subroutine  flow 
chart  (Fig.  S3).  Subroutine  ROSN  requires  that  the  user  specify  the  relevant 
cubic  spline  coefficients  and -^values.  The  subroutine  calculates  Aiji  for 
an  arbitrary  cavity  mesh  point,  (x,y). 
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CALLED  BY  GDL 


REDEFINE  X  ARRAY 


CENTER  OLD  CU  FIELD  IN 
NEW  FIELD  OF  ZEROES 


REPLACE  CU  FIELD 
WITH  CFIL 


Figure  S2.  Subroutine  RGRD  flow 
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b.  Relevant  formalism  --  The  SOQ  Cavity  coordinate  system  represents  a 
regular  mesh  upon  which  many  perturbations  are  applied.  High  Mach  number  flow 
produces  ordered  density  gradients  which  may  degrade  beam  phase  relation¬ 
ships.  Given  arbitrary  flow  field  interferometry  it  is  possible  to  parameter¬ 
ize  fringe  shift  (—  or  AOPD)  as  a  function  of  sidewall  parameter  s,  where  s 
is  determined  from  the  cavity  sidewall  projection  of  Mach  lines,  as  shown  in 
Figure  54. 


e  •  Mach  Angle 

Figure  54.  Fringe  shift  as  a  function  of  sidewall  parameter. 


From  interferometry  data  and  the  above  concept  of  sidewall  projected  data, 
the  following  parametric  curves  may  be  defined; 


The  curves  shown  in  Figure  55  are  fit  using  cubic  splines,  and  the  table  or 
arrays  of-^  ■  f(3*)  and  C  «  g(s*)  (spline  coeff)  are  stored  in  program 
DENSY.  Subroutine  ROSN  is  used  to  interpolate  from  (x,y)  in  the  cavity  to 
equivalent  sidewall  position  and  to  determine  using  the  above 

spline  coefficients,  an  interpolated  value  of  4^  =  H  (.x,y) 


Ao 

P 


right 


®^'’right^ 


KCx,y) 


C154-) 
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Sidewall  Dimension 

S*  - - 

Nozzle  Exit  Plane  Width 

Figure  55.  Parametric  curves  of  Mach  lines. 
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at  the  point  Cx,y)  is  given,  from  supersonic  flow  theory 
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Total 
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right 
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Total 


a  AoCx.yl 


_  Ap  (.x,y) 
P 


The  Spline  interpolator  is: 


wj|  $ 


The  interpolator  is  evaluated  for  each  of  a  right  and  left  wall  contribution 
along  the  appropriate  Mach  line. 


Connnons  Modified 
None 

Commons  Included 
/LENSY/ 

Relevant  Variables 

XS  Position  in  cavity  in  cm  along  flow  direction 

XS  Position  in  cavity  in  cm  orthogonal  to  flow  direction 

XNZ  Interpolated  perturbation  to  flow  field  at  (.xs,ys) 

S  Sidewall  location 

R  Interpolated  density  value 

/LENSY/ 

Y  C51>2)  <->  abcissa  y(51,l)  <->  leftwall 

y(51,2)  <->  right  wall 
Z  (51,2^  <->  ordinates;  same  convention 

C  (SI, 2)  <->  Spline  Coefficients;  same  convention 

TMC2)  Tangent  of  Mach  angle  -  left  and  right  sides 
XLS  Relative  position  of  nep.  read  in  subroutine  densy. 

W  cavity  width  (cm) 

XMULT  scaling  factor  usually  used  to  scale  from  %  to  absolute  ^ 
CRHO  Center  line  density  left  6  right,  may  carry  Gladstone-Dale 

constant 

M(2)  number  of  left  S  right  data  points  respectively 

TITLE  Alphanumeric  title 

LL  No.  of  sidewall  projections  i.e.,  if  left  right  symmetry  is 

assumed,  then  LL»1,  otherwise  =  2. 
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SUBROUTINE  ROSN 
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27.  SUBROUTINE  LINTERP 

a.  Purpose  —  This  subroutine  is  used  within  the  SOQ  code  to  linearly 
interpolate  sidewall  projected  cavity  density  information  from  sidewall 
projection  to  the  cavity  mesh.  Data  ^  are  stored  in  compressed  form  as 
univariate  curves  of versus  sidewall  projection  parameters  s,  from  which 
—  at  any  point  in  the  GDI  cavity  may  be  obtained  as  shown  in  Figure  56. 
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Flow 


Figure  S6.  Ap/o  cavity  density  information. 


The  interpolated  value  is  calculated  to  determine  the  equivalent 
flow-induced  lens  which  is  to  be  applied  to  the  propagating  wavefront.  The 
lens  is  the  result  of  flow-induced  inhomogenieties  such  as  ordered  density 
gradients  (weak  shocks)  and  uneven  thermal  distribution. 


The  LINTERP  subprogram  (Fig.  57)  calculates  the  sidewall  parameters 


from  interpolated  cavity  position  (x,y)  and  Mach  angle.  With  "s”  determined 

can  be 
f(x,y). 


for  both  right  and  left  cavity  sidewall  projections  a  contribution 


determined  for  both  sidewalls  and  linearly  combined  to  give|^^ 


TOTAL 


*  b.  Relevant  formalism 
Left  Intercept: 

‘u  ”  -  tfee 

where 

(x,y)  »  interpolate  position 
=  Left  intercept 
tan©  a  tangent  of  Mach  angle 

sidewall  parameter  s 

^  _  ^LI  _  (x-  y/tan©) 

^L  “  W  *  W 


(156) 
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Figure  57.  Subroutine  LINTERP  organization. 


Right  Intercept: 


tan6 


w-y 

x-x- 


(X  -  Xn  \tane  =  (w-y)  -  x  tan© 

V 


Y  -(w-y) 

A  —  —  ■?  >  X 

Rj  tan  3 


where 


S  ,  _L  =  X- (w-y) /tan  9 
R  W  W 


w  =  cavity  width 
tan  9  =  tangent  Mach  angle 
(expositive  angle) 


(157) 


(158) 


Commons  modified 
NONE 

Definition  of  relevant  variables 

TM  Tangent  of  Mach  angle 

XLS  Arbitrary  sidewall  intercept  offset  (cm) 

w  Cavity  width  (cm) 

2ir 

CRHO  Composite  constant  =  CAL 

Subroutine  LINTERP  computer  printouts  follow. 
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IFISH.GT.  Ydtkl  1  GO  TO  40 

CiOklNT 

47 

XHat 

CIOklNT 

48 

KHMla  1-1 

CiOklNt 

49 

TUHtay(KH<kl  -  Y(KHNl<k) 

CiOklNT 

90 

Y0H2a  sn  -  Y<xn«ltkl 

ClOklNT 

91 

GO  TO  49 

ClOklNT 

92 

40  continue 

CIOklNT 

93 

49  continue 

ClOklNT 

94 

UMHORla  2(Kn»k)  -2(KMNl«kl 

ClOklNT 

99 

OHnOn2«  ZIKrtNlfk) 

ClOklNT 

9b 

0MnaHa(ruH2/Y0Hl)40MHUHl  *  0Hrl0H2 

ClOklNT 

97 

XKXa  1 

ClOklNT 

90 

lF(X!>.Gr.2U<) 

ClOklNT 

99 

XaniTblNfWilXntAHMl, Y (KN,Ci «Y (ANMltk) •ZtXMtki •2(KKMl«kl 

ClOklNT 

bO 

9J  FOHMAI  (9X<*0U  «U  kOOi'4f219t4i9X»bi9«7l  ) 

CIOklnT 

bt 

GO  ru  90 

ClOklNT 

b2 

7  ONHOH  a  2d>k) 

ClOklNT 

b3 

ClOklNT 

b4 

GO  TO  90 

ClOklNT 

b9 

a  ONhOH  a  2(NMtkl 

CIOklNI 

bb 

KKKSJ 

ClOklNT 

b7 

90  continue 

ClOklNT 

bb 

lF(XS«GT.20.laHl rE(btl99IXKHt9n*UHHOH 

ClOklNT 

b4 

199  FOHNAr dOXtl9f2(9Xtbl9.7) t*  XKK*9n*UHH0H*« > 

ClOklNT 

70 

XN2a  ORHUkaCHHOdI  *  OHHUMaCHHUlkl 

ClOklNT 

71 

lF(XS.bT.20.laHirE(«t299l  CHHUdI  tCMNOlki 

ClOklNT 

72 

299  FOMNAT  l20A<aCaHUdl  fCMHUlk)  atElblS-T)  */> 

ClOklNT 

73 

KETUMN 

ClOklNT 

74 

ENU 

ClOklNT 

79 

28 .  SUBROUTINE  R0SN6 


a.  Purpose  --  Subroutine  R0SN6  (flow  chart  organization  shown  in  Fig. 
58)  is  incorporated  into  the  SOQ  code  to  allow  inclusion  of  the  cavity 
density  field  from  direct  interferogram  data  reduction.  The  data  from  inter¬ 
ferometry  are  assumed  to  have  been  fit  in  the  y  (parallel  to  NEP)  direction 
by  cubic  splines,  using  spaced  points  (not  necessarily  equal). 
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R0SN6 


R0SN6  .12  TO  ROSN6  .27 


ROSN6.28  TO  R0SN6.44 


ROSN6.45  TO  ROSN6.49 


ROSN6  .50  TO  ROSN6  .63 


ROSN6  .64 


ROSN6  .55 


Figure  58.  Subroutine  ROSN6  organization. 
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Subroutine  R0SN6  is  a  bivariate  interpolation  of  the  spline  fit  data 
using  cubic  splines. 

b.  Relevant  formalism  —  Subroutine  R0SN6  uses  the  following  procedure 
to  interpolate  the  available  spline  data  for  an  arbitrary  cavity  mesh  point, 
Cx,y),  shown  in  Figure  S9. 

(1)  Locate  *  in  the  spline  fit  data. 

C2)  Interpolate,  using  the  spline  fits  at  constant  y,  for  the 

value  of  —  at  the  nearest  three  x  values,  (A). 

0 

(3)  Construct  a  cubic  spline  in  the  direction  (x^.y*)  and 
evaluate  at  (x*,y*') 

C4)  Modify  —  (x*,y*')  bv  —  (x*,y*)  to  obtain  Ao 

in  the  desired  units. 

See  page  214  for  subroutine  R0SN6  computer  printouts. 


r 


•  (x*,  y*) 

•  Spline  Fit 
Mesh  Points 

a  Interpolates; 
(xj,  y*) 


Figure  59.  Available  spline  data  for  an  arbitrary  cavity 
mesh  point. 
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u  u  u 


Commons  modified 


/MELT/  not  modified 

/MELT/  is  used  to  transfer  in  the  following  data: 

x<=>cavity  flow  direction  coordinates  of  spline  fit  data 

y<s>orthogonal  coordinates  of  spline  coefficients 

2<a>ordinate  at  each  (x.,y.) 

i  j 

C<a>corresponding  spline  coefficients 
M<a>Index  array  for  constant  x. 

N 

ROCL  intended  to  be  p  at  the  center  line  but  may  be  an  artibrary 
scaling  parameter. 

Relevant  Variables 

XX  cavity  x-position 
yy  cavity  y-position 

XN2  ordinate  interpolated  at  (x,y),  normally  ap  =  f(x,y) 


SUBROUTINE  R0SN6  76/176  0PT*1  FIN  4.6+432  04/27/79  12.23.4:’ 


HUaN6 

2 

c 

tMlS  HOUUNt  la  uatu  10  IwItHrotAlt  Int  (.AVITY 

UtNSaY  FitLO 

XUSNb 

3 

c 

(ottiA  -^fO/HMO  »NO  aKtiNt  (.otf'f iciCNr  vt^aos  * 

ANO  Y)  ONTO  THE 

MuaN6 

A 

c 

cavity 

HUSNb 

a 

Cbveu  HUUM 

HUSNA 

6 

COMMUn  /  f^tLl  /  >•  Al^i)  t 

HUSNE 

t 

X  Yl^ltSlIt  2  121  tUl)  tC  1^1  •ai)  ,i<t,MOCLfOUMYSUU7T»> 

CUMH2 

10 

OlrvCrtalON  f  U)  j> 

M0aN6 

•» 

OaTA  Ilf0/2f2/ 

MUSN« 

10 

rtUSNfe 

11 

c 

COM»'urt  UUCAIION  OF  AA  liN  A<{)  A(i)  .LC.  AA  tLtt 

A(N> 

MUaN6 

12 

KAal«>2 

HObNe 

13 

lU  AUlaAllII'AX 

(AOSN* 

14 

AU2aA(II*il«AX 

MOSN« 

IS 

lPlAOiaAU2)2f2tt2 

MUaN« 

16 

12  iriXUl  .WT.  U*l  90  TO  is 

NOSN* 

ir 

11  a  11*1 

MOSN« 

IS 

IF (11  .Ul<  AA)  90  TO  lU 

HOSN* 

19 

IlaKA 

MOSN* 

20 

60  TO  2 

MOSNft 

21 

13  a  a  ll-l 

NOSN« 

22 

IFdt  .61.  01  60  TO  iU 

HOSNe 

23 

a  al 

HUSN« 

24 

c 

compute  TMNEb  VAUUbS  OF  Z.ANO  U2/UY  AT  YY 

MOSN« 

2S 

2  (.«1I*2 

HOSNft 

26 

KKaO 

XOSNft 

27 

c 

COMPUTE  LOCATION  OF  YY  (N  Y(M(a>  Y(ll  .L&.  YY  . 

LC.  Y(M<II) 

MUSN* 

28 

00  6  lalitL 

MOSN« 

29 

KKa«K*l 

H0SN6 

JO 

KYaM(l)-l 

HOSNb 

31 

1F(J  .6T.  AYI  UaXY 

ROSNb 

32 
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^0  YUlaTlltJ)>rT 

H0SN6 

33 

Y02  »  Y(ltJ*l)-YY 

HUSN6 

34 

If iru^•ru^)Stb^^^ 

HUSN6 

35 

iZ  IFlYUl  .ur.  0.)  (iU  TO  23 

HOSN6 

36 

jaj*l 

HUSN6 

37 

IFU  .LY.  KY)  (iU  TO  20 

HUSN6 

38 

jaKY 

HUSN6 

39 

au  TO  5 

H0SN6 

40 

23  jaj«l 

HUSN6 

41 

IF<J  .or.  Ul  SO  To  20 

M0SN6 

42 

J*l 

HUSN6 

43 

5  JHaj*l 

H0SN6 

44 

Mar  ( I  •  J>*)  -Y  ( 1 1  Jl 

R0SN6 

45 

Oa(YY-Y(I»J»l/H 

MOSN* 

46 

Cai.ati 

HOGN* 

47 

F(KK)aUag(i,j»>)*e*2<ltJ)*naH/«.a(C(iiJ)aa(e>*C(l»JPI*0(0)) 

MUSNG 

48 

6  continue 

MOSNG 

49 

CONFUTE  2fU2/OXt02/OY  «T  XX  FHUM  COrilC  !>HL1NE  THROUGH  F  ANO  FF 

HOSNG 

50 

HlaX(n*l>*X(Il) 

HUGN* 

51 

H2aX(II*21>A{n*ll 

MOSN« 

52 

IF (X(II*l)-AA) 7«a<a 

HUGN6 

53 

7  Oa(XX-X(lI«l) )/H2 

HUSN6 

54 

Ka2 

MUSN6 

55 

HaM2 

H0SN6 

56 

SO  TO  9 

H0SN6 

57 

a  OaiXX-X(lI) )/Mi 

MUSN6 

58 

Xal 

MUGN6 

S9 

Marti 

HOSNG 

60 

9  eal,-U 

HUSN6 

61 

COa2.»  t  (F  ( 3)  -f  (2)  1  /M2-tF  (2)-F  (  1 )  ) /MU  /  tM l»M2) 

HUSNb 

62 

TEMaM«M/e.«(a»£) *0(01 ) 

MUGNb 

63 

XNaO*F  (X»U  •ff  (M  ♦cu*reM 

HUSN6 

64 

XN2aF0CL*XN 

M0GN6 

65 

met URN 

MUSN6 

66 

ENU 

HUGN6 

67 

29 .  SUBROUTINE  SIMPGG 

a.  Purpose  --  SIMPGG  is  used  to  calculate  loaded  gain  for  GDL  cavities. 
It  uses  the  E.  A.  Sziklas  closed-form  gain  solution  as  derived  in  Reference  1, 
instead  of  numerically  solving  the  appropriate  GDL  kinetics  differential  equa¬ 
tions.  SIMPGG  also  finds  the  intensity  emitted  at  the  gain/phase  segment  for 
use  in  FUHS.  Figure  60  shows  the  SIMPGG  organization. 

b.  Relative  formalism  —  The  effect  of  the  interaction  of  the  light 
with  the  medium  results  in  an  amplification  of  the  light  beam  as  well  as  a 


phase  change.  Analytically  this  effect  on  the  field  is  written 
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SIMPGG 


SIMPGG.  15-^ 
SIMPGG.  22 


SIMPGG.  24-»- 
SIMPGG.  32 


SIMPGG.  33— 
SIMPGG.  44 


SIMPGG.  49— 
SIMPGG.  53 


Figure  60.  Subroutine  SIMPGG  organization. 


AL  is  width  of  the  medium  under  consideration,  g  (x,y) 

is  the  loaded  gain  coefficients  and  An(x,y)  is  change  in  index  of 

refraction  due  to  density  variations. 

The  factor  of  1/2  in  the  exponent  is  due  to  the  fact  that  gain  is  inten¬ 
sity,  not  amplitude,  related: 


‘OUT 


IN 


.S4L  _ 


=  GI 


IN 


(160) 


where 

I  •  |U|' 
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SIMPGG  determines  g(x,y)  analytically  using  expression 


gCx.y] 


/  “2  \  ^ 

(x.y)  1 


i'"*  T(x.y)/1 


SAT 


^SAT 


rOL.y) _ 

THTTyl 


(161) 


and  using  the  trapizoidal  rule  for  the  integral,  where  g  (x,y)  is  the  small- 
signal  gain  coefficient  foimd  in  subroutine  GAINXY. 

Note  that 


gCx.yj 


gjx.y) 


I(x,y}  =  0 


(1621 


is  the  "saturation  intensity" 


where 


^SAT 


=  ho  3 
a 


(163) 


hv  is  the  photon  energy,  3  the  lower  laser  level  relaxation  rate,  and  7 

the  optical  cross  section  for  the  transition.  I  is  also  defined  in  sub¬ 
sat 

routine  GAINXY. 

IVhere  the  FUHS  routine  is  to  be  called  to  calculate  heat  increase  in  the 
gas  due  to  lower  level  decay,  the  intensity  change  in  the  beam  is  needed  for 
each  gain  phase  segment,  thus  giving  the  heat  release. 

Consider  Figure  61  of  a  gain/phase  segment 
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I 


Then  for  each  CI.J) 

-I  =  *  I3)  -  (^2  *  ^4^ 

the  quantity  stored  in  the  array  PPD  after  a  complete  round  trip  is  the 
average  of  the  right  running  wave  (1^^  1^12  plus  the  average  of  the  left 

running  wave  (I^  +  1^/2. 

Therefore 


PPD  *  (I^  >12  +  13+  1^12 


C16S) 


but  I,  =  GI,  and  =  GI, 
so  AI  »  (l-G) 

and  PPD 

therefore 


(166) 


Knowing  the  total  power  change  due  to  Al  and  the  quantum  efficiency  n,  the’ 

1  /l.n\ 

total  heat  released  is  found.  The  factor  —  I - 1  is  discussed  in  FUHS. 

Az  \  n  / 

c .  Fortran 
Argument  List 

PPD  ■  Total  intensity  (left  running  +  right  running  waves)  — 

1  /l-n\ 

Becomes  I  - 1  AI  for  use  in  FUHS 

Az  \  n  / 

GG  «  Gain  « 

NCV  ■  cavity  number 
Commons  modified  --  none 
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Subroutines  called  -  none. 

Subroutine  SIMPGG  computer  printouts  follow. 

SUBROUTINE  Sr’PGG  76/176  OPT=l  FIN  4.6+452  04/27/79  12.23.47 


suHHuuriNC  slopes  (p*'u<aatracv) 

SlMROG 

2 

c 

CLUStO  FOHM  bAlN  ACuOHirnH 

S1MR6G 

3 

c 

rn(S  WUUriMfc  UStS  rue.  C.A.m^LAH  CLObtO  fOHH  (iAiN  SULUfiUN  fiM 

biMROG 

A 

c 

CU2  ru  CALCULAIt  LUAUfeO  OAiM  FUR  THfi  liUL  CAVlTItS* 

blMRGG 

b 

LEVEL  Ef  XCift‘0*(i<i 

blRRM 

6 

CUMMON/CAV2/  ACCai  tTCIb)  •ZC(3>  tNAt^l  •MV(S>  tNS(!>>  •XMC(»>  trNCIS)  t 

blMRGG 

T 

EN6TTI>(lUlt  lUSIlUt*  SS(>AlN((9a*»l*SAriN(»I.MerA(>»ltWMUS(blt 

biMROG 

» 

3  VELIbi  «<>AM(S>  tXMACHIb>«rwi(bl  >TVE(bl«Tyjlbl  (TyNElb)  (TSCAVCb)  t 

SIMRGG 

« 

A  PSCAVIb) tRa<bl fFNEISI tFCUECbl •FHEUIbl •FCUCbl tfUEIb>  * 

blMRGG 

10 

b  riTLb(EUI<  AVeibitNSYM 

SIMRGG 

11 

OlMEivSION  f>RU(  1636A>« 

SIMRGG 

12 

2  udsui  tSGAiNxa^oi  •MiNrsayu) 

SlMROG 

IJ 

c 

CALL  CRurtiidSHTI 

SIMRGG 

lA 

NbAaNbdYCV) 

SlMROG 

lb 

K<rAaNr(NCVI  /  (NbYM+U 

SIMRGG 

16 

NAAaNA('YCV) 

blMRGG 

17 

SArabATtfvINCVt 

blMRGG 

18 

Rura  NAA+NYA 

blMRGG 

19 

OUXXa  XCtNCVI  /  NXA 

SIMRGG 

20 

^Ai  a  2CINCY)/NS(NCtfl/2. 

SIMRGG 

21 

AClaFCU2(NCV>*atrA(NCV)/Fl>«(r<CY)/VEL(NCV> 

SIMRGG 

22 

c 

AHlTEIAtE)  f«bA«NYAf>YAA»OOXA«ZA2»ACl»  ISbGAIN(KtNCY)  (Kal.NAA) 

blMRGG 

23 

c 

2  FUHMaT ( inu«31St3G12.b/l«(Ut«G12*b/> 1 

SIMRGG 

2A 

OU  Stf  jaltf^YA 

blMRGG 

2S 

I2al«(«Jal)*f«AA 

SIMRGG 

26 

ROR  a  RRO<  12) /SAT 

blMRGG 

27 

RURl  a  RUR  •  1. 

blMRGG 

28 

SaAlNXlU)  a  R0R/RURla00XX/2< 

SlMROG 

29 

NtNTS(vt)  a  RUR/RORl 

blMRGG 

30 

S(JI  a  SSGAlrXltNCVI/RURl+bAKl'ACiabUAlNA).;) ) 

SlMROG 

J1 

SO  GUI  12  |a  EAR(G(J)aZX2) 

blMRGG 

32 

00  110  laZ.NXA 

SIMRGG 

33 

c 

•HlTElStJI  G(32) tS6AlNX(32) talNlblJE) fGGtlolt32l 

SlMROG 

3A 

c 

3  F0HMAT(lX,AG12.b) 

SIMRGG 

3S 

00  110  jal.NYA 

blMRGG 

36 

12  a  l*(J-liaNXA 

blMRGG 

37 

ROR  a  RR0(12  )/SAT 

SIMRGG 

38 

RORl  a  l.*ROR 

SIMRGG 

39 

alNTa  RUR  /  RURl 

SIMRGG 

AO 

SGAlNXIJI  a  SQAlNXU)*(«lNY*«lNrSlUII/2.aOOXX 

SIMRGG 

A1 

NiNTSiJI  a  mint 

SIMRGG 

A2 

GUI  a  SSOAlNIlfiYCV)  /RURl«tXR(«ACiaSGAlNX(U>  1 

SIMRGG 

A3 

110  G«<12  )  a  EXRiaU)a2X2) 

SIMRGG 

A6 

irilUSINCVI .LC.  01  GO  TO  300 

SIMRGG 

AS 

c 

blMRGG 

AG 

c 

COHRure  rCAT  release  FUNCTION  FOR  FUNS  ANALYSIS 

SIMRGG 

AT 

c 

SIMRGG 

AG 

ETA  a  .40 

SIMRGG 

AG 

RCUNSTa2.E*7a(l.»ErA)/ETA/t2CINCwi/NSA) 

SIMRGG 

SO 

OU  200  tal.NUT 

SIMRGG 

SI 

SIUOaGOI  I  >aa2 

SIMRGG 

S2 

200  RRUI  1  ) aHcONSTaRRO <  1  1 • <01GG«1 *01 / (GIGO* 1 .0 > 

SIMRGG 

S3 

c 

300  CALL  CRUflNIlFlN) 

SIMRGG 

bA 

c 

OELTaclSHT-lFlNI/lOO. 

SIMRGG 

SS 

c 

0H1TE(S«J1U)  UELT 

SIMRGG 

SG 

c 

310  format (2bH0  gain  CALCULATlUNb  COST  fG12.9t20H  SECONDS  OF  CRU  TIME/ 

SIMRGG 

S» 

c 

A/) 

SIMRGG 

SG 

joo  return 

blMRGG 

b9 

ENU 

blMRGG 
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The  following  is  from  Reference  1  and  is  included  for  the  convenience  of 
the  reader. 

The  gain  coefficient  for  a  gas  dynamic  laser  is  decribed  with  the  aid  of 
a  simple  three- level  model  representing  a  flowing  i^if^^acting 

with  a  10. 6u  beam.  The  relevant  energy-level  structure  is  illustrated  sche¬ 
matically  in  Figure  62.  The  upper  (001)  and  lower  (100)  laser  levels  of  CO^ 
are  designated  a  and  b,  respectively.  The  symbols  n^  and  n^  denote  the  popu¬ 
lation  densities  occupying  these  levels.  The  first  excited  vibrational  level 
of  N2  is  nearly  resonant  with  the  upper  laser  level.  The  population  density 
N  is  nearly  resonant  with  the  upper  laser  level.  The  population  density  N 
in  this  level  preferentially  pumps  the  upper  laser  level.  Since  the  ground 
state  CO2  and  N2  populations,  labelled  n^  and  are  generally  large  com¬ 
pared  to  n^,  rt^,  and  N,  the  magnitudes  of  n^  and  are  relatively  unaf¬ 
fected  by  transitions  to  and  from  the  excited  levels.  Accordingly,  n^  and 
may  be  viewed  as  constants,  i.e.,  ~  *  constant  where  and 

X„  are  the  mole  fractions  of  CO.  and  N, .  ^ 


Figure  62.  Relevant  energy  level  diagram  for  N2-C02  system. 
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For  steady  flow  in  the  x-direction  the  rate  equations  describing  the 
spatial  variation  of  the  three  relevant  population  densities  n^,  and  M 
are  given  by 


6n 


V  ^  AN  -  (a+Dna  -  (al/h*-)  (n^-n^) 


V - =  -  =  Cal/hv)  (n^  -  n^3 


C167} 

ri68') 


V 


5N 

Sx 


rn  -  AN 
a 


(169) 


Here,  v  is  the  flow  velocity  (assumed  constant);  a  and  8  are  the  relaxation 
rates  of  the  upper  and  lower  levels;  A  and  r  are  the  forward  and  backward 
pumping  rates  of  the  upper  laser  level;  a  is  the  optical  cross  section  for 
the  laser  transition;  hv  is  the  photon  energy;  and  I  is  the  beam  intensity. 

Since  the  pumping  rates  A  and  r  are  proportional  to  the  ground  state 
population  densities  n^  and  N^,  respectively,  it  follows  that 


■  ’‘co/\  (170) 

Under  typical  GDI  ocerating  conditions  Xm  typically,  the  upper 

LU,  M2 

level  decay  rate  is  slow  relative  to  the  lower  level  decay  rate,  and  the 
latter  is  slow  relative  to  the  backward  pumping  rate,  i.e., 


A<<r 


(171) 


The  beam  is  assumed  to  propagate  in  the  z~direction.  For  purposes  of 
analysis  it  is  convenient  to  suppose  that  the  transverse  intensity  profile 
at  some  axial  station  z  can  be  divided  into  a  series  of  constant  intensity 
segments,  as  illustrated  in  Figure  63.  For  example,  in  the  n  segment 
(Xj^<x<Xj^^j^)  the  intensity  distribution  is  approximated  by  the  value  » 
constant.  For  the  moment,  the  segment  width  x^^^^  -  x^  is  left  unspecified. 
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Intensity,  1 


Figure  63.  Step  approximation  to  transverse  intensity 
profile. 

The  gain  coefficient  for  the  laser  transition  is  defined  by 

g(x,I)  *.e(n^-n^)  (172) 

We  wish  to  solve  for  g  »  g(x,I)  in  the  n^''  segment  (n  =»  1,  2,  3,  ...)  where 

I  ■  I  =  constant.  The  upstream  edge  conditions  n  (x  ) ,  n,  (x  )  and  MCx^)  are 
n  anon  n 

presumed  known  from  the  solution  in  the  adjacent  upstream  segment.  By  succes¬ 
sive  application  of  the  segment  solution,  commencing  with  the  segment  at 
the  upstream  edge  of  the  beam,  one  can  in  principle  solve  for  g  throughout 
the  optical  cavity. 

The  advantage  of  the  segmented  description  is  that  an  exact  solution  can 
be  found  in  a  region  of  constant  beam  intensity.  Moreover,  under  suitable 
approximations,  to  be  discussed  later,  this  sequence  of  exact  solutions  can 
be  put  in  a  simple  analytical  form  suitable  for  application  to  a  smoothly 
varying  beam  profile. 

Applying  the  Laplace  transform  to  equations  (167)  through  (169),  one 
obtains 
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where 


Here,  n  (s)  =  (1/v) 

A 

and  =  oin/hv. 


dx  na(x) 


etc .  . 


Solving  by  b 


n^Cs) 


detl Cs+Aln^Cx^)  ♦  ((fj^(s+A)n^(x^)  +A  Cs+d+tfj^).VCXj^)j 


(174) 


-1 


s  an 


-M( 


I  V.'iN  J  ^  J 

n-^  a  n'^  n  b^  n"^ 


n'  '  n' 


(176) 


Here,  |det(  is  the  determinant  of  a  given  by 


s^+k,s^+k,s+k 
2  10 


C177) 


where 

k7  =  8  ♦  A+r>2W 
^  n 

ki  =e(A+r)  *  Wn(2AH-r+8) 

ko  “A8(afWn) 


The  approximate  equality  sign  refers  to  the  use  of  the  first  half  Ca«8,A,r  ) 
of  the  inequality  171. 

Under  the  same  approximation  the  roots  of  equation  (177)  are  given  by 


A6(a+W^) 

“^i^eCA+r)  >  (2A+r+uy 

^2*1  ®  "‘‘^n 


(178) 

(179) 

(180) 


where  idetj  =  (s+r^^)  (s+r^)  (s+r^) . 

In  the  absence  of  a  beam  (W^  =  0)  the  roots  r^^,  and  r,  have  a  simple 
physical  interpretation. 


r°  ®  cA/  (A+D 
r  r^  *  0 

^2  ^2  (181) 

r,  r°  »  '  +  r 

3  j 


The  value  r^  defines  the  relaxation  rate  of  the  available  laser  energy  (the 
upper  laser  level  coupled  to  the  vibrationally  excited  absence  of 

a  beam;  r°  describes  the  lower  level  decay;  and  r°  is  the  rate  at  which  pump¬ 
ing  equilibrium  between  the  excited  CO-  and  N_  is  established.  Typically, 
o  0  o  2  1 

r,«r2«r3. 


As  is  increased  from  zero,  the  physical  identification  of  the  roots 
r^,  r^,  and  r^  becomes  somewhat  obscure.  However,  the  inequality  rj^<<r,<<r, 

appears  to  hold  for  all  values  of  W^.  This  feature  leads  to  an  important 
simplification. 

*Care  must  be  exercised  not  to  introduce  the  second  inequality  at  too  early 
a  stage  in  the  calculation. 
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Taking  the  inverse  Laplace  transform  of  equations  Cl'4)  through  (176)  one 
obtains  a  solution  in  the  form 


naCx)  = 


A  exp  |-r^  (x-x^j/vj  +  B  exp  |-r2(x-Xj^)/v|  +  C  exp  |-r.Cx-Xa)/v 


(182) 


where  A,  B,  and  C  are  ftmctions  of  the  initial  conditions  n  (x  ) ,  etc.,  and 

3,  n 

of  the  various  rate  constants.  Similar  expressions  hold  for  n^(x)  and  N'(x) . 


In  the  absence  of  a  beam  (W  »  0)  this  solution  reduces  to  the  simple 

n 


form 


^  [rna(Xa)-AN(x^)]  ^ 

L - aTT - bs 

n^(x)  =  n^(.Xj^)  e.xp  [-r*  (x>Xa)/vj 
N(x)  -  -Xf.  [na(x„)  *  N(x^)]  exp  [-rj  (x-x^J/v] 
frn  (x)  -AN(x  )■(  p  ■) 


(183) 

(184) 


(185) 


ihe  quantity  |j’-^(x)  ’  <lescribing  the  available  laser  energy,  decays  at 

the  characteristic  rate  r^ while  the  quantity  jrn  (x)  -  AN(x)l  ,  describing 
the  departure  from  pumping  equilibrium,  decays '’at  the  rate  r°.'^ 

When  the  beam  intensity  is  nonvanishing,  the  details  of  the  solution 
become  rather  cumbersome,  and  successive  application  of  this  solution  to  a 
series  of  adjacent  beam  segments  would  be  a  tedious  task.  Fortunately  this 
complexity  can  be  largely  eliminated  with  the  aid  of  two  physically  reason¬ 
able  assumptions. 

The  first  assuanption  is  that  the  segment  widths  Ax^  *  x^^^  -  x^  can  be 
made  somewhat  larger  than  the  characteristic  lengths  v/r,  and  v/r^.  In  other 
words,  the  intensity  distribution  I  »  I(x)  is  assumed  to  vary  little  over  the 
characteristic  lengths  for  lower  level  decay  and  piomping  equilibrium.  In  this 
event  the  second  and  third  terms  in  equation  (182),  evaluated  at  the  down¬ 
stream  edge  of  the  n^^  segment,  can  be  neglected. 
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If,  in  addition,  the  rate  of  stimulated  emission  (n  »  1,2,3,...)  is 

less  than  the  pumping  equilibrium  rate  A  r,  it  follows  that  pumping  equilib¬ 
rium  can  be  assumed  throughout  the  optical  cavity,  i.e.. 


rn,(x)  =  N(x) 

31 


(186) 


.Application  of  these  approximations  yields  for  the  population  difference 
between  laser  levels  evaluated  at  the  downstream  edge  of  the  n^''  segment 


\^Vl^  ■  %  ^Vl^“  a(A+r) 


3(A+r)n^(x^)  AX  1 

i+n  +  (2A+F+6)  [■’^1 


n  (x„)  exn 


3+Wj^  a.'-  n 


AX  I 

.-1  -rj 


(18') 


where,  in  the  latter  expression,  use  has  been  made  of  the  second  half  of  the 
inequality  (171). 

By  a  similar  procedure  one  finds 


n  (x  )  3  n  (x  ,)  exp 
a  n  a  n-l"^ 


-1  (‘^n-P 


(188) 


Repeated  substitution  of  equation  (188)  into  (187)  gives 


an  (x^)  i  r 

\tVl)  -  %  (\.1>  ■  |-  ['l(V  “n  *  “„-l 

'l  'V  “<,] '’ 


+  .  .  .  + 


(189) 


If  the  segment  widths  Ax^(n  *  0,  1,  2,...)  are  now  viewed  as  "infini¬ 
tesimals"  equation  (189)  may  be  rewritten 
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If 


n  (x  ) 

nJx)-n^Cx)  =  exp 


(190) 


n  (x  ) 
a  0-^ 


exp 


-r. 


(x-x^)/v 


l-t-wCn) 


]  I 

—  exp  I 


up 


(r^-rp 


where  w(x)  =  aICx)/hv6  and  x^  defines  a  convenient  reference  station  (e.g., 
the  upstream  edge  of  the  beam) . 


Using  the  basic  definition  (172),  the  rate  expressions  (178)  and  (181), 
the  identity  (170),  and  the  inequality  (171),  one  finds  on  substitution  into 


(190) 


g(x)  = 


pCx) 


l_l+w(x)  J 


exp 


w(x') 

l+wfx) 


(191) 


where  g^  is  the  small -signal  gain  coefficient  given  by 


It  is  instructive  to  note  the  physical  significance  of  various  terms 

appearing  in  equations  (191)  and  (192).  The  term  in  square  brackets  in 
equation  (191)  is  analogous  to  the  usual  gain  expression  for  a  homogenenously 

broadened  line  in  a  nonflowing  laser  medium.  Here,  however,  the  small-signal 
gain  coefficient  (192)  is  not  constant,  but  decays  exponentially  with  dis¬ 
tance  downstream.  The  nondimens ional  intensity  w(x)  measures  the  rate  of 
simulated  emission  jl/hv  relative  to  the  decay  rate  3  of  the  lower  level.  For 
a  nonflowing  laser  the  value  w  =  1  defines  the  saturation  intensity  of  the 
medium. 


r  x^„  a  (.x-x„)l 


'CO 


O  I 


(192) 
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The  exponential  factor  in  equation  (191)  represents  a  corrective  term 
due  to  flow.  The  probability  that  an  initially  excited  CO^  molecule  will  re¬ 
main  excited  after  traversing  a  beam  is  dependent  on  the  beam  profile 
encountered  by  the  molecule  upstream  of  the  point  in  question.  This  explains 
the  presence  of  an  integral  over  the  upstream  flowpath  in  equation  (191). 

In  summary,  a  simple  approximate  expression  has  been  derived  for  the 
gain  coefficient  in  a  flowing  N2-CO2  system.  The  validity  of  this  expression 
rests  on  two  principal  assumptions:  (1)  instantaneous  pumping  equilibrium  is 
maintained  throughout  the  optical  cavity  and  (2)  the  beam  intensity  changes 
slowly  over  the  characteristic  distance  for  lower  level  decay.  Although 
these  conditions  are  not  always  satisfied  in  practice,  particularly  near  the 
upstream  edge  of  the  beam,  it  is  believed  that  even  in  these  instances  equa¬ 
tion  (191)  provides  a  qualitatively  accurate  description  of  gain  saturation 
in  a  GDL.  The  gain  coefficient  defined  by  equation  (191)  is  then  included  in 
the  complex  transmission  function 


c  =  e.xp 


g(.x,y;I)  dL/2  ♦  iAo  ( 


[x,y;I)j 


(193) 


to  describe  the  effect  of  the  medium  gain  throughout  a  segment  of  length  AL. 
Here,  ao  represents  a  phase  shift  due  to  possible  refractive  index 
variations . 


30.  SUBROUTINE  SLIVER 

a.  Purpose  —  Subroutine  SLIVER,  shown  in  Figure  64,  applies  an 
annular  aperture  to  the  field.  It  can  be  centered  anywhere  in  the  mesh. 


b.  Relevant  formalism  --  The  field  is  set  to  zero  interior  to  the 
annular  aperture.  Mesh  squares  intersecting  the  aperture  edge  have  the  field 
linearly  adjusted  for  the  relative  area  intersected  by  the  aperture  edge. 
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INITIALIZATION  SLIVER  .2-^SLIVER  .19 


APPLY  AN  APERTURE 


SLIVER  .20-^S LIVER  .37 


FORM  THE  FIELD 
APERTURED  BY  THE 
ANNULAR  APERTURE 


SLIVER  .42-^CYCLE  9.68 


RETURN 


Figure  64.  Subroutine  SLIVER  organi ration. 


c.  Fortran 
.Arguments 

RIN  a  Radius  of  the  OUTER  edge  of  the  annulus  Ccm) 

ROUT  a  Radius  of  the  INNER  edge  of  the  annulus  (cm)  • 

NOTE:  Both  RIN  and  ROUT  must  be  negative  to  call  "SLIVER"  since 

if  DOUT  (a2*RIN)  and  DIN  (a2*R0UT)  are  negative  in  the  GDL 
call  IFLOW  a  4  section  SLIVER  is  called  instead  of  APRTR. 

Common  Variables  Altered 

CFIL  a  CFIL  contains  the  original  field 
CU  a  CU  is  used  to  find  the  aperture  field. 


The  Logic  of  Subroutine  SLIVER  is  the  following; 


The  final  field  is  formed  by  subtracting  an  apertured  field  from  the 
original.  The  aperture  has  a  center  disk  of  radius  ROUT  while  the  inner 
radius  of  the  outer  edge  is  RIN. 

The  center  obscuration  is  first  removed  (IIN»0),  then  the  outer  obscura¬ 
tion  (IIN*11 .  This  apertured  field  (CU)  is  then  subtracted  from  the  original 
field  (stored  in  CFIL)  to  form  the  field  apertured  by  the  annular  aperture 

ecu). 

The  SLIVER  subroutine  computer  printout  follows. 


UBROUTINE  SLIVER  76/176  OPTal  FIN  4.6+4S2  04/27/79  12 

.23.47 
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A 
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12 
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13 
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30 
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SLlVEH 

31 
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SLlVEH 

32 
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SLIVER 

33 
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34 
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31.  SUBROUTINE  SPIDER 

a.  Purpose  --  The  SPIDER  subroutine  shown  in  Figure  6S  applies  an 
obscuration  to  the  complex  amplitude  field  in  the  form  of  several  support 
struts,  such  as  those  used  in  a  Cassegrain  telescope  system.  Up  to  six  struts 
at  separate  angles  may  be  modeled.  The  result  of  the  obscuration  is  listed 
in  the  output  stream  as  an  aperture  loss. 


b.  Relevant  formalism  —  An  angular  deviation  limit  a  calculated  from 
the  obscuration  inside  diameter  d,  the  grid  spacing  Ax,  and  the  strut  width 
w,  according  to 


a 


.  -1 
Sin 


Cw+2Ax)/d 


(194) 


Field  points  whose  inclination  angle  is  not  within  ±a  of  a  strut  angle  are 
assumed  to  be  unobscured.  Those  points  falling  within  this  limit  are  sub¬ 
jected  to  closer  inspection. 

The  distance  6  from  a  grid  center  (x,y)  to  the  strut  centerline  is 
calculated  by 

5  =  jy  cos6  -  X  sinej  (195) 

where  9  is  the  strut  angle.  The  half-width  of  a  grid  measured  along  a 
normal  to  the  strut  h  is  calculated  by 

h  »  x/2./Ai'IAX  (  (sin9(  ,|  cos9| )  (196) 


then  the  maximum  and  minimum  distance  of  the  grid  area  from  the  centerline, 


d  and  d  .  are 
max  min 


d 

max 

d  . 
min 


5  +  h 
5  -  h 
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CALLED  FROM  GDL 


repeat  loop  for 

EACH  STRUT 
FOR  EACH  POINT: 


TEST  FOR  NEAR 
STRUT  ANGLE 


CALCULATE  MAX  AND 
MIN  DISTANCE  OF  GRID 
AREA  FROM  STRUT 


CHECK  TO  SEE  IF 
POINT  IS  OBSCURED 


CALCULATE  PARTIAL 
OBSCURATION  FACTOR, 
UPDATE  FIELD 


^  SPIDER 


Dmin  *  «  h 


YES 


^  *  Omax 


Dmax  -Omin 
CU  -  CU  *yTr 


SPIDER  ,17 


SPIDER, 38 


SPIDER,40- 


SP1DER.42 


SPIDER,45- 


Figure  65.  Subroutine  SPIDER  flow  chart. 


Points  where  d  .  is  greater  than  the  strut  half  width  h  are  not  obscured, 
nun  s 

Points  where  d  _  is  less  than  the  strut  half  width  are  totally  obscured. 

max 

The  intensity  of  all  other  points  is  weighted  according  to 


intensity  weighting  =  (d  -h  3/(d  -d  .  1  nQ7'\ 

®  ^  max  s"^  max  min-* 

Argument  List 

DIH  diameter  of  inner  edge  of  support  (hub) 

NSPO  number  of  struts  or  spokes 

THETA  array  of  strut  angles 

WIDTH  strut  width 

XC  x-position  of  center  of  obscuration 

YC  y-position  of  center  of  obscuration 

Relevant  Variables 

ANG  inclination  angle  of  a  point  (x,y) 

ANGTOL  angular  width  about  the  strut  angle  which  defines  the  region 
to  be  searched  for  possible  obscuration 
DELTA  distance  from  (x.y)  to  the  strut  along  a  normal 

DELXDH  half-width  of  coordinate  grid  measured  along  a  normal  to  a 

strut 

PER  weighting  factor  in  establishing  fractional  obscuration 

Coinnons  Modified 
/MELT/ 

CU  the  complex  amplitude  field. 

The  SPIDER  subroutine  computer  printout  follows. 


SUBROUTINE  SPIDER  76/176  0PT*1  FIN  4.6+452  04/27/79  12.23.47 
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C  OCLTA  is  OISlANCb  FHUH  AtT  TO  CbNibM  OF  STHUT  ALONO  NUMNAL  SFlObH 
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SPIOER 

J2 

OO  10  ITai.NSPO 

SPIOER 

J3 

IHC 

POLLUalNtt  IS  NECESSART  TO  MAKE  ANGLES  NEAR  2R1  SEE)4  CLOSE  TO 

SPIDER 

36 

ANGLES  N£AH  u  . 

SPIOER 

35 

IF  (ANO.LT.  01  )  SO  TO  ta 

SPIOER 

36 

IF  (AaS(AN6«rwORl«THET(lT)).LE.ANGTUL)  GO  TO  17 

SPIOER 

37 

IS 

IF{AaS(ANG-THET  ( IT)  )  .6T.ANgTU(.)  GO  TO  10 

S)>IOER 

3a 

17 

delta  a  Aas((X(j)«rC)*cosrdr)«(x(i)>AC)*siNT(ir)) 

SPIOER 

J9 

OMAX  a  0ELTA*0ELXUH(It) 

SPIOER 

AO 

OMIN  a  OELTA-OELXUh(IT) 

SPIOER 

A1 

IF(OMlN.GE.aOTMH)  GO  TO  lU 

SPIOER 

A2 

PER  a  OtO 

SPIOER 

A3 

IF(OMAX.LE.BOTnH)  GO  TO  4U 

SPIOER 

aa 

PER  a  SGHT((UMAX-aOTMM)/(OMAA-OHlN)) 

SPIOER 

AS 

40 

CU(12)  a  CU(12)*PCH 

SPIOER 

A6 

10 

continue 

SPIOER 

A7 

HE  TURN 

SPIDER 

Ad 

ENO 

SPIOER 

A9 

32  SUBROUTINE  SPTAN 

The  SPTAN  subroutine  shown  in  Figure  66  functions  to  take  input  values 
of  X  and  y  and  return  the  angle  whose  tangent  they  represent.  SPT.AN  insures 
that  the  angle  returned  is  within  the  range 

0  ^  0  ^  2  TT 

FUNCTION  SPTAN  76/176  0PT«1  FIN  4.6+452  04/27/79  12.23,47 


function  SPTAN(Atr) 

SPTAN 

2 

PIa3.lAla926aA 

SPTAN 

3 

SPTANaO.O 

SPTAN 

A 

IF(X)  10t2U«30 

SpTan 

s 

10 

SPTANaNI*ArAN(T/X) 

SPTAN 

6 

RETURN 

SPTAN 

7 

40 

1F(T>  41f22t23 

SPf  AN 

a 

41 

SPTANal.SAPt 

SPTAN 

9 

22 

RETURN 

SPTAN 

10 

23 

SPTANaO.aAPI 

SPTAN 

11 

return 

sptan 

12 

30 

SPTANaATANlY/X) 

SPTAN 

13 

IF(r.LT.O.U)  SPTANaaPTAN*2.APl 

SPtAN 

lA 

RE  TURN 

SPTAN 

IS 

ENO 

SPTAN 

16 
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Figure  66.  Subroutine  SPTAN  flow  chart. 
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Xl<» 


33. .  SUBROUTINE  STEP 


a.  Purpose  —  Subroutine  STEP  shown  in  Figure  67  is  used  to  propagate 
the  field  through  a  vacuvun.  It  also  calculates  Strehl  intensity. 

b.  Relevant  formalism 

(1)  Propagation  —  STEP  allows  for  two  types  of  propagation 

(a)  Constant  area  mesh  —  This  type  is  used  to  propagate 
collimated  and  quasi>collimated  beams.  It  assumes  that  edge  spreading  of  the 
beam  due  to  diffraction  is  not  severe  enough  for  the  beam  to  get  too  close  to 
the  edge  of  the  calculation  region. 

Cb)  Variable  area  mesh  CVAMP)  —  VAMP  is  used  to  propagate 
beams  containing  phase  with  curvature.  As  will  be  shown,  the  curvature  is 
first  removed  from  the  field.  The  Ccollimated)  field  is  then  propagated  an 
equivalent  propagation  distance  which  is  defined  by  the  formalism.  After 
propagation,  the  propagated  curvature  is  returned  to  the  field. 

The  theory  of  VAMP  propagation  is  developed  in  Section  5-D  of  AWFL-TR- 
73-231  and  is  repeated  here  for  continuity. 

First,  consider  constant  area  mesh  propagation.  The  scalar  wave  func¬ 
tion  propagating  in  the  Z-direction  is  written 

■i/(x,t)  =  (1981 

equation  derived  from  Maxwell’s 

(199) 


(2001 

then  u(xl  obeys  the  paraxial  wave  equation 


The  function  il((x,t)  obeys  the  scalar  wave 
equations 


1  3 

—  “T 

c  3t^ 


If  one  assumes  that 


,  3u 
—4-  <<k  — 


3t 


aZ 


Figure  67.  Subroutine  STEP  organization. 
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By  using  the  method  of  Fourier  Transforms  u(x)  is 


where 


u(x)  =  (202) 

•  OS 

00 

U(f^,fy)  »  JJ dx'dy'e‘^’'^*^^x^'  ^  U(x'.yJi,0) 


The  Fourier  Transforms  are  efficiently  performed  by  using  the  FFT. 

For  variable  area  mesh,  the  following  approach  is  used: 

The  spreading  of  the  beam  is  estimated  by  that  of  a  Gaussian  reference  beam 
with  the  same  radius  of  curvature  as  the  physical  beam.  This  curvature  is 
removed  so  that  during  propagation  the  beam  continues  to  fill  the  calcula¬ 
tion  region. 

Propagation  of  a  Gaussian  beam  is  easily  handled  by  assuming  knowledge 
of  the  associated  Gaussian  plane  wave.  According  to  Siegman,  Chapter  8, 

CRef .  14) ,  a  Gaussian  plane  wave  (at  Z  =  0) 


when  propagated  a  distance  Z  becomes 


u(x,y,z)  » 


V?  (^) 


(ki-i|;(z))  ^-(x^+y^) 


where 


R(2)  *  Z 


W(z)  *  w^  Tl  + 


»  tan"  {—] 


14.  Siegman,  A.  E.,  An  Introduction  to  Lasers  and  Masers,  McGraw-Hill, 
New  York,  1971 . 


239 


with 


,  the  Rayleigh  range. 


Therefore,  to  propagate  a  Gaussian  beam  of  waist  w(Z)  and  radius  or  curvature 
RCZ)  a  distance  AZ,  the  following  approach  should  be  taken: 

Knowing  the  waist  and  radius  of  curvature,  one  can  determine  the  spot 
size  and  distance  to  the  spot  size  Z,  according  to 

RCzJ 

“  7  \7 

/XR(Z.)\'  (205 

‘  w 


^irw(z^)  ^ 

A^RCZl)  ) 


Then,  from  this  origin  a  distance  Z^  =  Z^  +  AZ  is  propagated  to  determine  the 
desired  wave  function. 

Since  it  is  known  how  a  Gaussian  wave  propagates,  it  is  possible  that 
transforming  a  given  wave  with  a  spherical  wave  front  to  Gaussian  coordinates 
could  result  in  the  propagation  of  a  quasi-collimated  wave.  The  appropriate 
transformation  is  found  to  be 


.  fkCx"  y")  -1  /  z\ 

2R(Z, 


where  Z  is  the  distance  from  the  current  reference  Gaussian  beam,  defined  by 
R(Z)  and  w(Z)  to  its  spot.  2^^  is  the  Rayleigh  range  of  this  reference  Gaus¬ 


sian  beam. 


By  transforming  to  Gaussian  coordinates: 


x/w(z) 


■'&) 


Y  »  y/w(z) 
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The  beam  transformation  is  written  as 


2  7 


u(xl  »  v(t}  =  ^-i(X--.Y-)  tan  Z  +  iZ 


(209) 


Inserting  this  equation  into  the  paraxial  wave  equation  results  in  the  fol¬ 
lowing  differential  equation  in  terms  of  Gaussian  coordinates 


.4i  |1  *  i  +  14  +  4  (l.(X^+Y^))  V  *  0 
3X^  3Y- 


(210) 


which,  except  for  the  quadratic,  is  similar  to  the  paraxial  wave  equation. 

■>  7 

The  quadratic  term  (X"  +  Y")v  can  be  dropped  if  the  reference  Gaussian  para¬ 
meters  and  propagation  distance  are  chosen  so  that  v  is  equal  to  zero  when¬ 
ever  X  or  Y  approaches  1.  This  implies  that  the  initial  waist  of  the  refer¬ 
ence  Gaussian  be  much  larger  than  the  size  of  the  beam  to  be  propagated.  The 
propagation  distance  42  must  then  be  restricted  so  that  the  waist  of  the 
reference  beam  remains  large  compared  with  the  beam  size  throughout  the  prop¬ 
agation.  With  these  restrictions,  the  equation  for  v  in  Gaussian  coordinates 
becomes 


3^v 

+  ifl  +  4v  -  4i  4^  =0 

(211) 

3X^ 

3Y^ 

• 

As  is  the  collimated  case,  Fourier  Transform  analysis  gives  the  following 
result: 


v(X,Y,Z) 


df  df 
X  y 


V(f^.fy,Z)e 


27ri(f^X-fyY) 


(212) 


where 


Vff  ,f  ,Z) 

X  V 


vrf^,f^.,.)e  [  X  y  J 


I 
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and 


=  J/*dXdY  V(X,Y,Z)r^''*^^x^*V^ 

—  00 

the  propagated  wavefunction  is  then  vfX.Y.Z]  multiplied  by  the  propagation 
envelope: 


u(x,y,2) 


VCX.Y.Z) 


cos  Z 
w 

0 


_i(X^+Y“)  tan  Z  *  iZ 


(213} 


where 


z  being  the  final  distance  from  the  reference  spot.  If  the  propagation  takes 
place  well  outside  of  the  Rayleigh  range,  Z  is  much  greater  than  Zj^  and  the 
expansion  of  the  arctangent  for  large  argument  can  be  used: 


/I  l\  (214) 

‘•R  [z^  -  z) 


(2)  Strehl  intensity  —  Since  subroutine  STEP  propagates  the  beam 
using  Fourier  Transforms,  the  Strehl  intensity  is  easily  calculated. 


The  Strehl  intensity  gives  an  irradiation  of  the  amount  of  aberra¬ 
tion  present  in  the  beam  at  a  given  limiting  aperture.  It  is  defined  as  fol¬ 
lows:  Consider  a  field  LI(x,y}.  The  field  in  the  Frauenhofer  diffraction 
region  (the  far  field)  is  given  by  equations  (4)  through  (13)  in  Goodman: 


If  2  2 

r*.  .  ikt  i^  (x%y^) 
u(x)  =  £  e  2z 


(215) 
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The  Strehl  intensity  is  defined  as  the  ratio  of  the  centerline  intensity  of 
the  far  field  to  that  of  a  plane  wave  propagated  the  sane  distance  coming 
from  the  same  aperture  with  the  same  power.  Analytically  this  is  given  as 

12 

P(u(3e')) 


'  STREHL 


"CL-FF 

^LL-PW-FF 


f  =  0 

T~ 


C217) 


f  =  0 

The  plane  wave  centerline  intensity  is  evaluated  from 


f  =  0 


r  r"  2-Tf^cose 

(v 

3  A  /  rdr  ydee 

0  0  ^ 

(218) 


7 

=  ira"A 


A^  being  the  plane  wave  amplitude  and  a  the  radius  of  the  aperture.  Assuming 
a  calculation  region  size  of  the  L  x  L  with  N  x  .V  =  total  number  of  points, 
the  centerline  intensity  of  the  far  field  for  the  real  beam  is  found  from 


2irif.x 


2irif-  X 


F  (uC?))  =jj dx  u  )« 

-oo 

L  L 

=  ^ J" '^y 

( -  ]  E  (-) 

I=i\  -V  i  j=i  (I.  J)e 


(219) 
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where 


c .  Fortran 
Argument  List 

DELZ  »  Distance  to  be 

RADCY  =  radius  of  curvature  or  the  phase  front 

WINDOX  =  x-space  cosine  data  window  for  FFT 

WINDOK  a  K- space  cosine  data  window  for  FFT 

IFG  =  Vamp  control  parameter 

a  1  constant  mesh 

a  2  variable  mesh 

ITR  a  Vamp  control  parameter 

a  0  Stay  in  vamp 

a  1  transform  back  to  constant  mesh  space 
IPS  =  Tilt  and  defocus  removal  flag 

a  0  no  correction 
a  1  remove  tilt 

a  2  find  defocus  radius  of  curvature 
a  31+2  together 

total  beam  tilt  kep  track  of  for  beam  placement  in  the 
inertial  coordinate  system  instead  of  the  beam  coordinate 
system 

NWRT  .^0  Propagates  a  wave  distance  DELZ  without  altering  the  stored 
value  of  total  Z.  NWRT  »  i.  Suppresses  Strehl  intensity  cal 
culation  as  well.  NWRT  »  1  when  STEP  is  called  from  QUAL. 

IFLAG  ^0  Assumes  VAMP  and/or  CAMP  parameters  are  established.  It 
tells  the  routine  to  continue  the  propagation  based  on 
previous  calculations  of  waist  and  curvature. 

Common  Variables  Altered; 

CU  -  becomes  the  propagated  field 

CFIL  -  is  altered  if  IPS  0  by  a  call  to  TILT 
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X 


altered  if  in  VAMP 


DXREAL  -  moved  to  keep  track  of  center  of  beam  in  inertial  frame  as 

DYREAL  . 

the  beam  propagates 

WNOW  -  VAMP  parameter  altered  to  keep  track  of  the  current  spot  size 

MREG  -  Flag  to  tell  whether: 

a  0:  Constant  area  mesh  propagation 
a  1:  VAMP  inside  half  the  Rayleigh  range 
a  2:  VAMP  outside  twice  the  Rayleigh  range 

Other  routines  called: 

TILT 

FOURT 

Computer  printouts  for  subroutine  STEP  follow. 


SUBROUTINE  STEP 


76/176  OPTal 


FIN  4.6+4S2  0^/27/79 


12.2.S.47 


SOURUU  r  ( NC  S  rCK  ( oecz  f  H  AUC  t  «NU0A  •  aNOUK  «iF(>tir>4ti)'S«AX«AT»MaHr> 

step 

2 

A  IfLAVt  ) 

SfEP 

J 

c 

WbNEflAk.  HMOPAoAriNO  ACUOHITMH 

STEP 

* 

c 

THIS  >4ounNe  ts  oseu  ro  t'Hu^'Aoart  the  cum»»i.ea  fielu  a  uistanca 

SIEP 

s 

c 

UtL^  •  IFLAUal  IS  USfcO  CONriNuixlb  alTH  SAME  PMOPAijAT  INW  MAfMlX 

STEP 

6 

tCvEi.  2*  CUtCUH 

SIeP 

T 

COnNUN/«AY/WNOatNWEU<HAPrw 

STEP 

8 

CUHWON/aELr/CU(ibja«)  •CFlCdeaiai  ta|.«NPTSfNPYtUXMbAL»UTHEAL 

SlEP 

9 

UlHENSlOiY  NNOIE)  tAPMI<t2ttiU>  tFACrH<»«>  tCUHtJ^Ybei  »Cl>UMHI2> 

ilEP 

18 

llUUHLb  PRECISION  MUf2HALt21»MAOCUW»aMt«F>TN2^ 

STEP 

11 

COMPLEX  CUfCMLtCUUM 

SiEP 

12 

EUUIYALEMCE  tCU(l) tCUNIll I  t  ICOUMfCUUMMUl > 

step 

13 

OATA  CtMiC  /O.Q/ 

step 

lA 

(F  IIFLAW.NE.OI  SO  TO  20UU 

STEP 

IS 

Pla3.1Al»92 

STEP 

16 

MPEP2arw>fS*2 

SiEP 

ir 

NP  a  NPrS/2 

STEP 

10 

nPP  la  Iff  » 1 

SfEP 

19 

AMP2al .u/FLOAT (NPYS) ••2 

Step 

20 

NNUdt  a  MPTS 

StEP 

21 

NMU(2)  a  NPTS 

STEP 

22 

NAMaeawPISaNPrS 

SfEP 

23 

NMESaU 

SfEP 

2A 

PAUCOMbMAOCAM 

SfEP 

2ft 

0CALClaXINPrSI«X(l)*XI2l-A«U 

step 

26 

IF («NUOX.LC>U*0>  SO  TO  Ad 

STEP 

27 

N4N00X  a  WNOOXaFLOAT (NPfS) 

step 

28 
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non 


c 

X>SP*CE  COSINE  0«T*  mINOOh 

SfEP 

29 

00  2U  lal.NWNUOX 

StEP 

30 

ill 

FACTHII)  ■  (1.0*COb(Hl*FLO*t U)/FLOAT (NMNOUX) ) )/2.U 

SfEP 

31 

NMNOOK  •  aW)OK*FLOAr  (NPTS) 

StEF 

32 

N  0  aNiN*  1  - 1  •NWNOUK 

STEP 

33 

IF  (i»*s.Ne.ai  00  TO  iiJ7 

StEP 

34 

IF  (IFO.UT.U  00  TO  1137 

StEP 

3S 

IF  (iFo.or.2>  00  ru  113/ 

StEP 

3* 

IF  (IFO.tO.ll  00  to  1002 

StEP 

37 

GO  TO  S 

StEP 

3a 

c 

OETERNINE  LInCAM  ANU  UUAOHATXC  COMOUNEnTS  OF  »>HASE 

StEP 

39 

U37 

CACL  riLI <AA«AYtAAOCAH< IPS) 

StEP 

40 

IF  (IFO.Lr.ll  00  TO  1139 

StEP 

*l 

IF  (tF(i.**r.2)  OO  TO  1139 

STEP 

42 

IF  (IFO.ba.l)  SO  TO  1002 

StEP 

43 

00  TO  S 

SfEP 

44 

liJ9 

PHHEAKal.E/O 

StEP 

45 

IF  tOAtfSIPAOCUR/OELEKOT.NMMbAM)  00  TO  1002 

STEP 

4« 

C 

♦  4 

••  step 

47 

C 

VAHIAMLE  ARtA  MfeSH  PROPAGATION  rMANOFONMATlON  TO  EOUIOALENT 

StEP 

45 

C 

COLLlMATtO  OkAM 

StEP 

49 

5 

ALPMAalO. 

StEP 

50 

C 

OhTEMNlNAriON  OF  OEAM  aAlST  ANO  UISIANCE  TO  IT 

StEP 

51 

al  a  ALPhA*0CALC1/2. 

StEP 

52 

««  a  (al*al*Pl/at.t  ••2 

StEP 

53 

Z1  a  >«AOCUH*«a/ (NA0CuM**2*aa> 

Step 

54 

aO  aOSONI ( ObOP T  HAuCOHaZl^Z 1**21 aaL/Pl ) 

STEP 

55 

2HaL  a  Pi*«0*ao/ai. 

StEP 

56 

ANZa2. 

SfEP 

57 

IF  (OAOStZI)  .t.T.2NAt./AN2)  nHtual 

StEP 

5a 

IF  (0AUSI21)  .0T.2HAL*AN2)  'iHtua2 

STEP 

59 

IF  (NKtO.bOaU)  00  TO  12 

step 

40 

IF  (UAt«S(21*oEI.2)  •Or.ZHAU/ANZ.ANO.AtPbU.EU.l)  00  tO 

12 

StEP 

41 

IF  (UAbbt21*OEl.2)  •br.2riAI.*AN2>ANO«NNb0.eo«2>  00  to 

12 

StEP 

42 

DOME  a  PI*«2*ZMAb/(UCA(.Cl/Blt**2 

StEP 

43 

IPnT  a  1 

StEP 

44 

C 

ESTAUklSN  PHOPAOATINO  MATmIA 

StEP 

45 

C 

INCLOOES  FPEOOEnCT  space  OaTA  alNOOa 

StEP 

46 

00  101  Ja«j,NPPl 

SIEP 

47 

AJNISO  a  (w-l)**2 

StEP 

40 

wFACTP  a  l.U 

SIEP 

49 

IFtJ.OTtNU  .ANU<  NMNOOA.Ut.OI 

STEP 

70 

1  bFACTH  a  ( i,0-C0S(PI*FbOAr tNPPl-0)/FUOAT INBNOOA) 1 )/2.0 

StEP 

Tl 

00  101  la|,J 

STEP 

72 

OOP  alAJHlSa*<l'*ll**2) 

SfEP 

73 

IPnT  a  IPNr»l 

SIEP 

74 

APHtltlPNTJaaFACTN 

STEP 

75 

lUl 

APR I2t IPNT ) aOOMe*OUP 

StEP 

76 

TNZl  a  Zl/ZHAL 

StEP 

77 

lOlaU 

StEP 

7a 

00  2  AaltNPY 

SIEP 

79 

rSO  a  XIKia*2 

StEP 

60 

DO  2  lal.NPtS 

STEP 

61 

101  a  101  *  1 

STEP 

62 

1012  a  IJI  a  2 

StEP 

63 

1012M1  a  IJ12  •  1 

StEP 

64 

PNI  a  lxll)*a2  •  TSO»*fN2l/Ol**2 

StEP 

65 

SInP  a  SlNtPNlI 

StEP 

66 

COSP  a  CUStPNl) 

StEP 

67 

COPS  a  CU«I<1JI2PII 

StEP 

66 

CUH<10I2N1>  a  «!#(  CUPS*COSP  •  CUP « I012> aSlNP  ) 

SfEP 

89 

2 

C0HIIJI2)  a  «!•<  C0NS*S1NP  *  COP ( 1 Jl2) *COSP  1 

Step 

90 

IFtNPPT.NE.OIZKEEPaZZZ 

step 

•  1 

ZZZ  a  Z1 

StEP 

92 

ZlNTEaO. 

StEP 

93 

a3awi 

StEP 

94 

IF  (IFS.EO.O)  IIMal 

STEP 

95 

00  TO  2000 

StEP 

96 

C 

♦ 

step 

97 

C 

CONSTANT  APtA  MbSH  PPOPAOAIlON 

StEP 

96 

C 

INCLoOES  FPEUOENCY  SPACE  uATA  alNOOa 

StEP 

99 
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onooonnno  n  n  n  on 


1U02 

«C0UM1s2.*PI/MC 

STEP 

100 

OUMl  ■  (2C/0CALC1)«*2 

STEP 

101 

IPNT  ■  1 

STEP 

102 

C 

ESIAHLISH  RHUHAUAriNtt  MATMIX 

SttP 

103 

00  200  Ja2tNHRl 

SfEP 

10* 

AJHISO  •  (0‘-ll*«2 

StEP 

109 

■FaCIM  a  l.O 

StEP 

106 

IF  (J.(ir..«0  (ANU.  lOaNOUK.ul  .01 

SfEP 

107 

1  afACTR  >  (1.0«C0S(Rl*fL0*r  InmnOOK)  n/2«0 

step 

108 

00  200  laltJ 

SfEP 

109 

OUM  a|*JMlSa*(l«lia«2l 

SfEP 

110 

0UM2  •  0UM1*UUM 

SfEP 

111 

OUMJ  a  (0.12b*OuM2*0.b>*UOa2 

StEP 

112 

If*Nr  a  IKNTal 

StEP 

113 

At*H  (  1 1 IRNT)  aaFaCTM 

StEP 

11* 

200 

ARM ( 2 t IRMT 1 aaCOUMl aUUMO 

STEP 

119 

C 

EiafEM  HMTlNt  MtME  aHfeia  CUnrixiUlMO  al  IH  OAME  RRURAOAriNO  MATNIA 

STEP 

116 
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34 .  SUBROUTINE  TBLOOM 

a.  Purpose  --  This  subroutine,  shown  in  Figure  68,  is  used  to  model 
four  types  of  thermal  blooming  which  may  be  seen  by  a  beam  as  it  propagates 
through  an  absorptive  medium. 

The  four  types  are: 


1. 

Tranverse 

2. 

Axial 

3. 

Free  convective 

4. 

Transient 

b.  Relevant  formalism  —  Thermal  blooming  arises  as  a  consequence  of 
the  absorption  of  laser  radiation  by  the  transmitting  gas.  The  absorbed  radi¬ 
ation  heats  the  gas  and  consequently  changes  its  refractive  index.  These 
variations  in  the  index  of  refraction  induce  phase  changes  in  the  propagated 
beam.  Phase  changes  produced  by  thermal  blooming  can  result  in  beam  diver¬ 
gence,  which  overloads  apertures  and  provides  a  source  of  high  energy  feed¬ 
back.  Thermal  blooming  also  degrades  beam  quality.  Thermal  blooming  models 
are  available  in  the  SOQ  library  to  describe  the  impact  on  the  beam  phase  and 
amplitude  produced  when  thermal  blooming  occurs  in  (1)  a  transverse  flow 
field,  (2)  an  axial  flow  field,  (5)  a  free  convective  flow  field,  and  (4) 
transient  conditions  with  no  external  flow. 
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Figure  68.  Subroutine  TBLOOM  flow  chart. 
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Figure  69  schematically  demonstrates  the  procedure  used  to  modify  the 
complex  field,  U(x,y) ,  as  it  is  propagated  through  a  thermal  blooming  gain 
phase  segment  within  the  SOQ  code. 


Figure  69.  Illustration  of  thermal  blooming  model. 

As  the  beam  is  propagated  a  distance  AL  through  the  medium,  it  is  con¬ 
tinuously  interacting  with  that  medium.  By  requiring  that  the  effect  is 
small,  the  integrated  effect  can  be  approximated  by  a  finite  number  of  dis¬ 
crete  steps  in  the  following  manner; 

Assume  each  step  is  of  length  AL  and  that  the  effect  of  such  a  step  is 
approximated  by  a  vacuum  propagation  to  the  center  (AL/2) ,  application  of  the 
appropriate  transmission  function  t(x,y,I),  followed  by  subsequent  vacuum 
propagation  of  field  the  remaining  distance  (AL/2) . 

The  transmission  function  t(x,y,AL,T(x,y)  c^n  be  assumed  to  be  of  the  form 

tCx.y.I)  *  exp|-~  -iAitj  C224) 

where  a  is  the  absorptivity  of  the  medium  and  Ait  can  be  written 


Employing  the  usual  Gladstone-Dale  relationship  to  approximate  the  index 

RT 

n,  (n  a  1+pC)  and  the  equation  of  state  for  an  ideal  gas  (P  =  -jjj-p)  .  the 
expression  for  Aq  becomes  (assuming  constant  pressure) 


dz  5T  (x.y.t) 


C226) 


iST  represents  the  temperature  variation  across  the  beam  as  a  result  of 
one  of  the  four  types  of  thermal  blooming.  It  is  found  in  the  following  man¬ 
ner: 


(1)  Transverse  blooming  —  It  is  assumed  that  the  wind  is  blowing 
with  speed  (con/scan)  from  the  negative  x-direction.  The  resulting  temper¬ 
ature  variation  is: 


5T 


T 


I  (x'.y.t)  dx 


C227) 


where  I  is  the  intensity  of  the  beam. 

(2)  Axial  blooming  —  It  is  assumed  that  the  wind  blows  in  the 
same  direction  the  beam  is  traveling  with  speed  V  (cm/sec)  resulting  in 
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ax 


PC_  V 


ax 


/ 


I  (.x.y.zjdt 


(228) 


(3)  Free  convection  —  The  temperature  variation  due  to  thermal 
gradients  caused  by  absorption  is: 


(229) 


where 


PCZ')  being  the  total  power  in  the  beam  at  Z'  and  g,  the  acceleration  due  to 
gravity. 

(4)  Transient  —  Finally,  in  the  process  of  establishing  free 
convection,  the  beam  has  a  residence  time  during  which  the  temperature 

variation  is 


5T 


tran 
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c .  Fortran 
Argument  List 


ALFA 

CP 

T 

RHO 


ZLEN 

NSTEPS 


INPT 

MPROP 

AXIAL 

DT 


-  Absorptivity  of  the  medium  (cm 

-  Specific  heat  (J/g-K) 

-  Temperature  (K) 

-  (1)  if  RH0<1,  it  is  the  density  (g/cm'^)  used  for 
free  convection 

(2)  if  RHO^l,  it  is  the  transverse  velocity 

-  Total  length  of  the  blooming  medium 

-  The  ntimber  of  steps  required  to  adequately  represent 
thermal  blooming  over  a  distance  ZLEN.  Phase  per  step 
shift  usually  kept  ^  g  /3 

-  Flag  for  intermediate  plots 

-  Same  as  NSTE  in  cavity 

-  Axial  velocity  (cm/sec)  and  is  >  0 

-  Residency  time  for  transient  blooming 


None  of  the  above  parameters  is  redefined  by  this  subroutine. 
Commons : 


(230) 


The  variables  in  common  which  are  modified  are: 

(1)  CU:  the  effect  of  the  blooming  is  applied  to  CU 

(2)  CFIL:  due  to  its  equivalence  with  the  PH  and  W  arrays,  it  is  modi¬ 
fied  when  they  are  defined. 
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Computer  printouts  of  subroutine  TBLOOM  follow. 


SUBROUTINE  TBLOOM  76/176  OPT=l  FIN  4.6+4S2  04/27/79  12.23.47 
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35.  SUBROUTINE  THERML 

a.  Purpose  --  Since  uncooled  mirror  glass  has  such  a  low  coefficient 
of  thermal  expansion,  the  mirror  surface  heats  up  as  the  beam  hits  it,  thus 
heating  up  the  surrounding  boundary  layer  of  air.  Subroutine  THERML,  shown  in 
Figure  70,  models  the  phase  change  impressed  on  the  beam  due  to  thermal 
gradients  in  the  boundary  layer  of  air. 

b.  Relevant  formalism  —  The  theory  of  this  phenomenon  was  developed 
by  Humphreys  and  Wick  (Ref.  15)  of  AFWL. 


IS.  Humphreys,  W.  W.  and  R.  V.  Wick,  "Change  in  Optical  Path  Length  Near  a 
Hot  Mirror  Surface,"  Laser  Digest,  AFWL-TR-7S-140,  1975,  p.  9. 
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THERML.  58-^ 
THERML.  81 


THERML.  89h»» 
THERML.  123 


Figure  70.  Subroutine  THERML  organization. 


Following  Humphreys  and  Wick,  assiome  that  the  times  of  interest  are 
short  enough  to  consider  the  mirror  to  be  a  semi-infinite  slab.  From  the 
theory  of  heat  conduction  the  time  for  heat  to  traverse  a  length  L  is 
t  »  L^/o.  Thus,  for  mirrors  of  thickness  L,  the  time  during  which  the  mirror 
acts  like  a  semi-infinite  slab  is  «L‘^/o.  .Assume  also  that  for  these  times 
one  can  neglect  natural  convective  cooling.  Therefore,  the  air  can  also  be 
modeled  as  a  semi-infinite  slab.  The  one-dimensional  heat  equation  is  then 
assumed  to  apply  for  both  the  mirror  and  the  air: 
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Common  variable  altered; 

CU  =  the  field  is  modified  by  the  boundary  layer 
temperature  gradients. 

Subroutines  called:  OUTPUT 

where  the  coordinates  are  seen  in  Figure  71. 


Figure  71.  One-dimension  heat  diagram  of  mirror  and  air. 


Initially,  both  the  air  and  the  mirror  are  at  the  same  temperature  T 


T  (X  0)  *  T  =  T  (X  0) 
in  tn  o  ^ 


(232) 


For  the  times  considered,  the  heat  does  not  have  time  to  diffuse  to  the  back 
boundary  of  either  the  mirror  or  the  air.  This  boundary  condition  can  be 
written 


T„(-,t) 

m 


T 


0 


T.  (-.t) 


(2J3) 


The  air  and  the  mirror  are  asstoned  to  maintain  the  same  temperature  at  their 
joint  boundary  so 


(0,t)  -  T  (0,t) 
in  a 


(234) 


The  remaining  condition  to  be  applied  is  that  of  heat  balance  at  the  joint 
boundary.  By  Fourier's  law 


X  a  0 
m 


a  al 


(2351 


where  a  is  the  absorptivity  of  the  mirror.  Similarly  using  Fourier's  law  at 
the  air  boundary 


a  x  =0 
a 

By  combining  these  two  equations,  the  joint  heat  balance  equation  at  the 
boundary  becomes: 


ml  X  =  0 
ni 


^a|x^=  0 


Since  both  the  media  obey  the  same  form  of  equation,  consider  the  solution 
of  the  following  equation: 


3'T  _  1  jT 
.„2  a  3t 


Finding  the  Laplace  Transform  of  the  above  equation  gives 


=  i|-T  (x,o)  +  sT  (x,slj 


where , 


T  (x.s) 


y dt)l"^^7Cx,t 


Noting  that  T(x,0)  -  Tq  for  both  the  mirror  and  the  boundary  layer,  one  can 
rewrite  this  as 


4(t(x,s)  -  -  I  *(T(x.s)  -  ^ 


S  I  5 
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which  integrates  to  give 


TCx.s) 


A(s) 


B(s)e 


(241) 


The  boundary  condition  for  x  -*•  «  implies  that  A  =  0  for  both  media. 
Therefore 


T 

T(x.s)  -  -| 


B(s) 


X 


(242) 


To  proceed  further,  it  is  necessary  to  determine  B(s).  This  is  done  using  the 
joint  boundary  conditions.  Recall  that 


3T 


-k 


m 


m  3x 


m 


X  =0 
m 


3T. 


m  ix 
a  a 


al 


X  *0 
a 


Assuming  (al)  to  be  constant  in  time,  this  transforms  to 


3T 

V  _E 

m 


m 


-k 


3T 

_ a 

a  3x_ 


X  *0 
m 


a 


ol 

s 


(243) 


but 


3T  ,  , 

3? 


.x*0 


B(s 


)el| 


x»0 


(244) 
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Therefore 


Recall  that  at  x  =  0,  T  (O.t)  =  T  (0,t).  This  implies  that  B  fs) 

m  ^  ^ 

Therefore 


B 

a 


I 


The  equation  for  the  air  to 


T 

a 


s) 


be  back- transformed 


-s 


e 

s  s 


is  therefore 


'lote  that  T  (x  ,t)  obevs  a  similar  equation  with  the  a  and  the 
m  m 

interchanged.  Recall  the  following  Laplace  Transform  theorems: 


and 


(245) 

a  B  fs)  . 
a  ■ 

(246) 

(247) 

subscripts 

(248) 

(249) 
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1 


The  equation  for  T  Cx  ,t)  is  therefore 

&  S 


T  (X  .t)  -T  a  r— 
a  a  0  km 


“I _  f 

ka  J 


or 


a  /a 
m  a 


X 

^  4a  t' 


dt£ 


/  *  t ' 


(250) 


^^a  =  ^a  '  "o 

al 


-  X  / 4a  t 
a  a 


“  is  +  M.  2/  t  e 

m  a 


-  erfc 
vcu 

a 


(251) 


The  phase  change  in  the  beam  induced  by  this  variation  in  temperature  is 
given  by 

4 /a  t 


A0  (x.y.D  =  21“^)  /  ^ 


a/ 


(252) 


The  factor  of  2  is  due  to  the  fact  that  the  beam  passes  through  the  boundary 
layer  twice.  The  limit  on  the  integral  is  seen  to  be  the  practical  point  at 
which  the  variation  in  temperature  becomes  negligible.  This  limit  is  impor¬ 
tant  to  estimate  since  the  integral  is  to  be  done  numerically. 

As  in  TBLOOM,  dn/dt  is  found  by  the  Gladstone-Dale  law 

M  a  1+  oC  (253) 


and  the  equation  of  state  of  a  perfect  gas 
NIP 


(254) 
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at  constant  pressure 


dn  -oC 

dt  “  T"  C2550 


It  is  assumed  that  the  effect  is  small  enough  that  the  integral  may  be 
approximated  by  a  finite  number  of  steps.  Four  steps  are  chosen  here. 

c.  Fortran 

Argument  List 

CONMIR  a  mirror  thermal  conductivity 
CONGAS  a  boundary  layer  thermal  conductivity 
ALPHAM  a  mirror  diffusivity 
ALPHAG  a  bovindary  layer  diffusivity 
RHOGAS  a  boundary  layer  density 
REFMIR  a  mirror  reflectivity 
TAU  a  transient  time 
TIN  a  temperature 
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;6.  SUBROUTINE  TILT 

a 

.  Purpose  —  Subroutine  TILT,  shown  in  Figure  72,  can  be 

used  to 

remove 

beam  tilt  and  will  calculate  the  radius  of  curvature  of  a 

beam. 

b 

Relevant  formalism  —  To  remove  small  amounts  of  beam 

tilt,  the 

following  formalism  is  used.  Large  fixed  tilts,  such  as  result  from  mirrors 
set  at  an  angle  to  the  beam  axis,  are  removed  by  the  system  analyst  in  defin¬ 
ing  the  equivalent  collimated  system. 


Consider  an  input  field  UCx,y)  incident  on 
transmission  function  t(x,y)  yielding  an  output 


an  optical  element  with 
U'  Cx.y). 


U*  (x,y)  -  t(x,y)  U(x,y) 
»  A  exp  (i<i) 


(2S6) 
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CYCLE  9.143 -^CYCLE  9.170 


CYCLE  9.171  CYCLE  9.203 


CYCLE  9.204 -►CYCLE  9.223 


CYCLE  9.224 -►CYCLE  9.237 


Figure  72.  Subroutine  TILT  organisation. 
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For  removal  of  beam  tilt  from  a  field  U(x,y)  the  transmission 
fimction  must  be  of  the  form 

'tilt 


C2S7) 


where  a  =  h0  and  A  =  h0  define  the  tilt  angles  to  be  removed. 

XX  y  y 

Similarly,  the  phase  curvature  is  removed  by  the  following  transmission 
function 


-i  ^  (x^y2) 

'sphere ^ 

To  calculate  the  constants  a^  and  a^  for  an  arbitrary  field  distribution, 
U(x,y'),  define  the  following  functional  to  be  minimized: 


C2S8) 


TILT 


‘JJdxdy  |uCx,y)P 


or 


(259) 


"trt  [fe  -  s)'  •  (If  -*>) 


the  resulting  expression  for  "a  is 
%  = 

where , 

> 

<7<J>» 


i 

&?c  'b 

1 

2- 

Vdi 

jOfel 

U  (x) 

(260) 


(261) 


7(J  is  easily  found  from  the  field  data  by  noting  that 


J 

I 


Once  the  tilt  is  removed,  a  similar  procedure  to  remove  phase  curvature 
is  used.  Recall  that  the  transmission  function  (x,y)  needed  is  of  the 

form 


’^SPHERE  ^ 


•ik 


(4i) 
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The  new  functional  to  be  minimized  is 


SPHERE 


= JJ^ d.xdy  U(x,y)j"|v|(f>  -  b|x~  ^  y^jjj 


C264) 


'  4 


which  results  in 


b  -  «  7i> 

<x  •  x> 


C265) 


Valves  of  tilt  a  and  sphere  b  are  found  by  an  iterative  procedure  until  the 
values  established  for  these  parameters  do  not  change  appreciably. 


c. 


Fortran 


Argument  List 


RADCUR 


=  Total  X  and  y  tilt  in  the  beam.  The  amount  of  tilt  removed 
from  the  beam  by  this  routine  is  added  to  these  parameters 
so  that  no  tilt  information  is  lost. 

a  the  negative  of  the  radius  of  curvature  of  the  beam  found 
by  this  routine.  To  produce  a  "flat”  beam  the  following 
calculation  would  be  performed. 


CU'CI.J)  =  CU(I,J]  *  exp  i(VXR)  (x‘  *  y") 


C266) 


with  R  representing  RADCUR 
X  a  X(i:)  and  Y  »  X(J) 
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U 


IPS 


*  the  parameter  that  indicates  which  options  in  this  rou¬ 
tine  are  to  be  used.  IPS  is  the  same  parameter  as  UPS 
in  name  list  PROPGT  in  subroutine  GDL.  The  options  are: 

IPS  =  0  Tilt  is  not  called  for 

=1  Tilt  only  is  removed 

=  2  Sphere  only  found 

=  3  Both  tilt  and  sphere  found, 
tilt  being  removed. 


Common  Variables  Altered 

CU  -  has  tilt  removed 

CFIL  -  starts  off  set  to  CU,  then  has  both  tilt  and  sphere  removed. 
Subroutine  TILT  computer  printouts  follow. 
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CSUMV  a  lO.UfO.U) 

0(i  3U  Ja^tNClMY 
Jlaj*l 
JHaJ^i 

IF IJ.EU.NPy) JJaj 

CttaCFlLdOl 
CAaCFlLl^tJ) 

UU  30  la^.NClHX 

CAAaCFIC<I<Jt> 

CCCaCHLUtJ"! 

CCaCd 
CaaCA 

CAaCPlLil*li-l> 

CCnJ  a  CUNJOIChI 

CbUKA  a  CCNJ»(CA-CC>/a.O*CbUWX 
CboHY  a  CCNJ«<CAA-CCCl/a.O*CbuMY 

JU  continue 

CAA  a  CbUMX*UEl.X 
CAY  a  CSOMyaUEUA 
AILTa  aAlHA(;i(CAA)/KUM 
ATLTY  a4lMA(»(CAY)/KUa 
IF (NKTS.kO.NPYl  60  rO  id 
ATLryag.u 

bi  4TAa-ATLfX*M»./(a.*Kll 
4rTa-4TurY*ML/ ta.aKU 
AxroraAxior*ArA 
AYTOTaAYIor»ATY 
AAaAA*Arx 
AYaAY«4TT 
UU  AO  Jal.NKY 
Jla(J-ll»NKTb 
ATlTYY  a'ATLTY 
00  40  laltNprS 
iNOXaJl*! 

PHI  a  ATUTAaAd) 

CFaCT  a  CMPCa  ICUb(KHd tbiNCKnl) I 
CFaCT  a  CEXK(CKKLA(U.tArLI A*A(I) ♦ATLiyaAtJI) ) 
CUdNOXiaCud<YOAl/CFACT 
CFlLdtOlaCFIUdtJ) /CFaCT 

40  continue 

EAX  a  0(0 
EAY  a  O.U 
IF(A88<AAI  .01. 

lF(AHb(ATi  .or. 

ICKA  a  I 

IF(eAX.uT.O.U9.ANO.EAY.(.r.U.Obl  ICAAav 
AXULO  a  AA 
AYU(.0  a  AY 

IF  (IKS  .EU.  1  I  00  TO  TO 

•  THE  FULLOalN(>  CALCULATIONS  UttERMlNt  THE  LEAST  SUUAHES  $^AEA1( 

•  FIT  TO  THE  PHASE  ON  AO  1  ENT.— -THE  MESULT  tB.  IS  i^KI  /(ML*«). 

4  R  a  The  HAOlUS  UF  CUHVATUHE  OF  THE  PHASE  FHONT. 

aaaaaaoAAaaaaaaaaaaaaaa  FUKOnAM  Il/aS/T4  •••••••••*••••••••**••* 

b4  Ta  0.0 

OO  59  J  a  i,  NKY 
00  9S  I  a  l,  NKTS 

FNAB  a  CFlLHI2ai-l tOJaad  •  CFiLR(24l.JI aae 


A  (0) 


♦  ATLTYY 


0.0) bAXa AOS ( I .U>AAUL0/ AX ) 
0.0)  EA  Ya  Abb  <  I  .  0«A  YOL(J/ A  Y ) 


CYCLE9 

lOS 

CrCLEB 

no 

CTCLE9 

III 

CYCLES 

112 

CYCLES 

113 

CYCLES 

114 

CYCLES 

119 

Cycles 

116 

CYCLES 

117 

CYCLES 

118 

CYCLES 

ns 

CYCLES 

120 

CYCLES 

121 

CYCLES 

122 

CYCLES 

123 

CYCLES 

124 

CYCLES 

129 

CYCLES 

126 

Cycles 

UT 

CYCLES 

128 

cycles 

12S 

CYCLES 

130 

CYCLES 

131 

CYCLES 

132 

CYCLES 

133 

CYCLES 

134 

CYCLES 

13b 

cycles 

136 

CYCLES 

13T 

cycles 

138 

CYCLES 

13S 

CYCLES 

140 

CYCLES 

141 

CYCLES 

142 

CYCLES 

143 

CYCLES 

144 

CYCLES 

149 

CYCLES 

146 

cycles 

147 

CYCLES 

148 

cycles 

14S 

cycles 

190 

CYCLES 

Ibl 

CYCLES 

192 

CYCLES 

193 

CYCLES 

194 

CYCLES 

19b 

CYCLES 

196 

CYCLES 

197 

Cycles 

198 

CYCLES 

t»S 

CYCLES 

160 

Cycles 

161 

CYCLES 

162 

CYCLES 

163 

CYCLES 

164 

CYCLES 

169 

CYCLES 

166 

CYCLES 

167 

CYCLES 

168 

CYCLES 

16S 

Cycles 

WO 

CYCLES 

Wl 

cycles 

W2 

CYCLES 

173 

Cycles 

174 

cycles 

179 

CYCLES 

176 

CYCLES 

IT7 

CYCLES 

178 

CYCLES 

ITS 
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'H' 


c 

FMAG  ■  CMLII«JI  •  CUNJGt  CFlL(i«JI  1 

CTCI.e« 

ISO 

T  a  FMAG  •  (  *  A(J)a*2  >  *  ( 

CTCLCS 

ISl 

CUNflNUe 

CrCLC* 

1S2 

TINT  a  r  a  JtLA  •  OtLX 

CYCtee 

103 

CHA  a  (O.tUa) 

CTClC* 

ISA 

CNT  a  (U.,0.) 

CTCU9 

1S» 

OU  6U  J  a  2  fNLlNV 

CYCLe9 

ISO 

Jlaj*l 

CYCLE9 

lar 

JNaJ-l 

CYCI.C9 

I  as 

IF(J.tU>NNYI Jlaj 

CYCLE9 

109 

CUaC^ ILlitUl 

UYCLtO 

ISO 

CAaCFIL(^>J) 

cTcceo 

ISl 

UO  6g  ia^.iMClMA 

CYCLtO 

192 

CAAaCFILdfJl) 

CTCt.£9 

193 

CCCaCFlLIItJM) 

CYCI.E9 

ISA 

CCaCa 

crcU9 

1S» 

CUaCA 

CTCLb9 

1V6 

CAaCFlL(l*l«JI 

CTCLE9 

197 

CCnJ  a  CUNUOICdl 

CTCLEy 

ISO 

CHA  a  CCNja(CA-CC)*Aat/^.U*CnA 

crccee 

ISS 

CHT  a  CCNja(CAA>CCC)*A(JI/d.U*CHT 

CTCLEV 

200 

eo 

CUNTlNUe 

CYCLe9 

201 

CHINT  a  OELA  •  1  CHf  •  CrtA  ) 

CYCLb9 

202 

a  a  >A1MAG<  CHiNT  )  /  ri>«r 

CYCLbO 

203 

IF  (ANS(ai  .GT.  .eaun  FUCAI.  a 

CYCLE9 

20A 

9AUCUH  a  (FUCALaNAOCuNI/ IFuCAk'NAUCUHl 

CYctey 

206 

1 F  ( AHS  ( d AOCUM )  .  Q  r  .  U  .  U )  CHOa AdG  (  1 .  U-HUUt.U/M AUCUrt ) 

CYCLt9 

206 

tCKrtal 

CYCLES 

207 

MOOLO  a  WAUCUH 

CYCLES 

20S 

IF  lEdO.LE.SPHTOD  ICKNaU 

CYCLES 

209 

c 

CHaO  a  CNPUA  (0.U<>*1/ (acafUCAL) ) 

CYCLES 

210 

Pl«av.F  a  Pl/(aC*FOCAC) 

CYCLES 

211 

00  ao  Jal.NPT 

CYCLES 

212 

YSO  a  A<J)aa^ 

CYCLES 

213 

00  au  lal,NPfS 

CYTiLES 

2ia 

12  a  da] 

CYCLES 

216 

U«l  a  12  -  1 

CYCLES 

216 

PHl  a  (X(l)aa^  «  ySOI  a  PJOaCF 

CYCLES 

217 

SINP  a  ^iNtPHl) 

CYCLES 

218 

COSP  a  COS < PHI) 

CYCLES 

219 

COriS  a  CF1LHI12H1«J) 

CYCLES 

220 

CFlLHIIdHlfJ)  a  CUKSaCObP  •  wF ItH < 12*0) aSlNP 

CYCLES 

221 

so 

CFILH(I2.JI  a  CoHSaSiNP  ♦  CF  ILP  ( 12tvl)  aCOSP 

CYCLES 

222 

c 

ag 

CFU.  1 1 1 J)  aCF  IL  )  I .  J)  acfiAP  (  ( A  ( I)  ••2*A  Ij)  ••g)  •CHIkUt 

CYCLES 

223 

/o 

UMAX  a  0.0 

CYCLES 

22a 

aHirCtetligi  KOUNT«FOCALtHAUCOfl»ArX>ArYtAXTOTfAYTOT 

CYCLES 

226 

19U 

FOhHAT (lA.IStaA.6GiJ. a) 

CYCLES 

226 

IF  (F0CAI..GT.>a.EUS.AN0.F0CAC.Ur.6«Egb.AN0.N0UNT.CT.tTHAA)GU  TO  2S 

CYCLES 

22T 

IF ( ( icha.gt.o.oh.ickh.gt.o) .ano.auunt.ct.(thaa)  go  to  2S 

CYCLES 

228 

IF ( IPS.EU. 1 .UR. IPS.EO. J) aHirt (6.2U1 ) AATOT . AYTOT 

CYCLES 

229 

2U1 

format (/EOAtlAHLlNEAM  COHHUNfcNT// 

cycles 

230 

X  igX.aHriLI  IN  iNXeM  a  AIA)  a.G12.a«aH  HAUlANS/ 

CYCLES 

231 

X  10X.«HTUT  in  IHY9M  a  AtT)  a.GU.a.aH  HAOlANS) 

CYCLES 

232 

lF(lPS.ae.2lMHlTE(6.6T)HAUCUH 

cycles 

233 

e7 

FOHMAr(/20A.i9HSPHEMICAL  COMPONENT// 

CYCLES 

23A 

X  IOX.JZhPhaSE  FHONT  CoMyATUME  a  HAOCUH  a«0t2.a.jH  CM//) 

CYCLES 

236 

HETUHN 

CYCLES 

238 

ENU 

CYCLES 

237 

37.  SUBROUTINE  ERF 

a.  Purpose  --  The  function  ERF  generates  the  error  function 


erf Cx) 


C2671 
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or  its  complement,  l-erf(x),  for  any  input  value  of  x.  This  subroutine  is  a 
copy  of  the  ERF  function  available  from  the  AFWL  scientific  program  library. 
Figure  73  shows  the  Subroutine  ERF  flow  chart. 


LROP1.294,— • 
296 


LRP0 1.297,-^ 
299 


LR0P1.302,-» 

313 


LROP1.323,— 

334 


LROP1.339,— 

349 


Figure  73.  Subroutine  ERF  flow  chart. 


b.  Relevant  formalism  --  The  error  function  integral  is  approximated 
over  discrete  intervals  of  the  argxjment,  x,  by  Tchebickef  (Chebychev)  poly¬ 
nomials.  These  polynomials  are  evaluated  in  a  loop  which  combines  the  recur¬ 
rence  relations  for  generating  the  polynomials  and  a  running  summation  of  the 
terms  as  they  are  generated.  Coefficients  for  the  polynomials  are  provided  in 
a  data  statmnent  for  three  discrete  ranges  of  the  argument.  Argment  values 
outside  this  range  will  return  a  zero  (0). 

Argument  List 

ANS  error  function  value  returned  to  calling  program 

KODE  flag  to  indicate  computation  of  erf(x)  or  1-erfCx) 

XX  error  function  argument 

Relevant  Variables 


A1 

A2 

A3 


array  of  coefficients  used  in  the  polynomial  e.xpansion 
over  the  range  ixx|  _<  2. 

coefficient  array  for  the  range  4.  ^ixx|<  6. 
coefficient  array  for  the  range  2.  <|xx|<  4. 


SUBROUTINE  ERF 
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12.23.47 


c 

c 

c 

c 

c 

c 

c 


c 
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SObMOUTIN^  tHF  (iMJUtf  XA.4IMSI 

COH*»Urtl>  BY  CMEHYSrtfcy  tAHAKSiUNS  UH  INTfYVALS. 

A0u€«l  (.OMHUTtS 

AOUeaB  al-tBr  «A) 

cue  bbou  xuuriKit 

omCNSIU'Y  41  (Jl)  »AB<47)  tAJllb> 

UAT4(A1 1 1)  f  lal«3t  >/4«^lbbBBlUBtb9blb*tt«0<fb.02lA41Ab77Jl»9e»l  t0<  t 
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UAT4(4BI  1)  1 1*1  f  2  7)  / 1.9  70  7U92  7225  794*0*  •-!  •*339749271  7750f2«U.* 

12 .973814922026 19e-4*0.*-7.bU391bU433b237fb«U. *4.3313342034 720b-7* 
20 . *  *2 . 362 1 9002624 1E~8  *  0 • *  1 . 9 1 9*96  7b961E>9*  0 . * - 1 . 1 084939696E- 1 0  * 
30.*9.U42»90l4C«12*0.*«8.09*7094fc>l3*o**7.893856E«14*0.* 

4>8.1 791Bf 15*0. *9.07 I9f 16*0. ••t.0646E«lb/ 

0474(43(1) *1*1 *161/ 1.0666306693199 3E*0*1.78B76062094436E*2**3. 8017 
15293809401E>3*6. 971 1 143902360 1E-4*»1.16368846063892E*4* 1.813676759 
232619e-5*>2.67719939785138f6*3.777Ut329909996E*7*-5.1249114290140 
32E •8*6.7 lS70399763107E-9*«tt. 9*0196461 l2b*4E>10*1.05544302186899E>l 
40*>1 .27 1U8990000124£«1 1  *  1 .494*134818906*t-12*>l . 7138290  78653i9£*13 
5 * 2. 0889996*3 1 3469E« I 4/ 
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LHUPl 
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LHUPI 
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LHUPI 
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LHUPI 
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LHUPI 
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LHUPI 
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LHUPI 
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UKOFl 

2S7 

UATA  HrPl<AtiM/1.772Ab38!>U90M2*  2.!>8*UHb2a6d«382E*l/ 

LMUFl 

2M 

DATA  N1  tl»tHl«N2,N^Ml  tN3iN3N|/Jl*4U«2/>26f  16*  IS/ 

CHOP  I 

289 

UHUPl 

290 

XaAX 

LNOPI 

291 

6U  TO  (1UO|200I «RUue 

tHUPl 

292 

100  continue 

LHUPI 
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IFIX.lE*-^.)  10t20 

LHOPl 

29A 

10  ANSa>l. 

LMOPI 

29S 

HE  TUHN 

WHOPl 

296 

20  IFlX.tr.b.)  IjO  (0  u 

LMOPl 

297 

ANS>1. 

UHOPl 

298 

hETUHn 

lhopi 

299 

12  IFIX.LT.*.)  00  ro  iO 

CHOP  I 

300 

ASSION  26  TO  ISET 

CHOPl 

301 

61  continue 

EMOPl 
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2*6. /X  A  T2az*2 

CHOP  I 

303 

azao. 

kHUPl 

34A 

SlaO. 

ENOPl 

30S 

00  2S  IaltN2Nl 

LHOPI 

306 

JaN2«I*l 

LMOPI 

30T 

TEMPadl 

LHUPI 

308 

BlaT2*Hl-a2*A2(JI 

lhopi 

309 

M2aTEH*> 

LHOPl 

310 

2b  CONTINUE 

LHUPI 

311 

ANSa2*bI‘*B2*A2(  It /2. 

LHOPl 

312 

ANSa(EXH(-x*Al / (X>HTHI) laANb' 

LHUPI 

313 

00  TO  lStr< (26«2Tt2af20l 

LHUPI 

31A 

26  AnS«1.*ANS 

LHOPl 

31b 

27  HETUhn 

LHOPl 

316 

24  ANb  a  'IxANS 

LHUPI 

317 

HE  rUHN 

LHOPl 

3ia 

30  continue 

LHOPl 
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IF(X.0T.2.I  31tA0 

LHOPl 
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31  continue 

LHOPl 

321 

ASSlON  26  TO  ISET 

LHUPI 

322 

3b  continue 

LHOPl 
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LHOPl 

32a 

32a0. 

LHUPI 

32S 

dlaO« 

LHUPI 
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00  36  JaltN3Ml 

lhupi 

327 

KaN3-0*l 

LHUPI 

328 

TEMPaUl 

lhupi 

329 

dlaTZ»«l-62»A3<RI 

lhupi 

330 

82aT£HH 

lhupi 

331 

36  continue 

lhupi 

332 

ANSaZ«8 I'SE* A3 ( 1 1 /2 • 

lhupi 

333 

ANSaEAF (-A*AI aANS/X 

lhupi 

33a 

00  TO  ISETt (26>27t2af29> 

LHOPl 

33S 

AO  continue 

LHUPI 

336 

IF(X.LT.>2.>  00  ro  SO 

LHUPI 

337 
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LHUPI 
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A2  CONTINUE 

LHUPI 
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LHUPI 
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LHUPI 
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LHUPI 
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LHUPI 

3A3 
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LHUPI 
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TEMFatfl 

LHUPI 
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LHUPI 

3A6 

SEaTENF 

LHUPI 

3A7 

AS  continue 

LHUPI 

3A8 

ANSa(X/2.|a|2*8l-S2*Al ll)/<.l 

LHUPI 

3a4 

00  TO  ISETt <26«27t2a«29l 

LHUPI 

3b0 

SO  CONTINUE 

LHOPl 

3S1 

IFlXtOrt'A.)  SltdO 

LHOPl 

392 

SI  continue 

LHUPI 

3b3 
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LHUPI 

3SA 

60  CONTINUE 

LHOPl 

3bS 

Xa«xx 

lhupi 

3S6 
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LHUPI 
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LHUPI 
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^00  CONTINUE 

IF(X.ST.-fc.l  SO  ro 
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20b  IF  U.UT.ALIMI  so  to  210 
«nS«0*  S  METUHN 
210  CONTINUE 

IFCX.bT.*)  SO  TO  21b 
XbblSN  2f  TO  IStT 
GO  TO  bl 

21b  IF(X.ST.2.»  SO  ro  220 
IFiX.l.T.-2.»  SO  ro  22b 

xbblON  2b  To  lbb< 

GO  TO  42 
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UHUPl 
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LMUPl 
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LHUPl 
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LHUPl 
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kMUPl 

3T6 

CNUPl 
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LNUPl 

3T8 
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LHUPl 
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SECTION  IV 


USER  FAMILIARIZATION  PACKAGE 

The  following  section  contains  sample  input  to  run  the  SOQ  code  and  to 
logically  define  the  sequence  of  input  to  model  a  sample  resonator  or  optical 


1  the 

following  examples  are  included: 

1. 

Propagate  for  Users  Guide 

-  Camp 

2. 

Propagate  for  Users  Guide 

-  Vamp 

3. 

Quality  for  Users  Guide 

4. 

Design  of  a  Bare  Confocal 

Resonator 

5. 

Resonator  for  Users  Guide 

-  Bare 

6. 

Resonator  for  Users  Guide 

-  Loaded 

7. 

Sample  Code  Update 

1.  PROPAGATE  FOR  USERS  GUIDE  -  CAMP 


jwAPC*srMPx,P400o.ri  r/.tti.  pwuwagaj*:  koh  usepsouioe  -  CAf^u 

ACCOUNT ( JP alt. •LPOtl  T31  ) 

GETPf (OLOPL •SOU  T7 1 ?a • I U******** ) 

UPUATE  <F»wI 

FTN(  I  tLCMsT  ,OL  =  2nonO  •l.sO*A) 

PeTURN(OLOPL) 

COPYCP.  INPUT,  TAPE’S. 

PEwInO, TAPES. 

PFLFC (4J0) 

LGO (PLsftOOnO) 

MFLFC(I) 

•tOP 

PROPAGATE  -  camp 

*STa9T  WtaL»0»OOlOS,  NCALL»^»  0CAL»15.»  NNPTS«12H» 

IHsd«  ODPXsO.O*  nUHYsQ.O*  AMPGES>dO.O*  OGAUSSsO.O, 
HESTPTa. FALSE. ,  PUOTS«l,0.  IN»S. 

SYMTWC*. FALSE. .  PMlPACaO.O.  SENO 
PROPAGATE  -  CAMP 
iCONTPL  IFLOw»4.  SEND 

APEPTuPE  ThF  plane  wave  to  10,  CM. 

SAP  TUP  OUUT* 10.,  OIN*0,,  kPNO 

SOONTPL  IFLUWae,  SENO 

PLOT  TME  INITIAL  PLANE  ’WAVE 
SPLOT  SEnO 

initial  plane  wave 

iCONTPL  I«’LOwr3,  SEND 

PROPAGATE  THE  FIELD  *000  CM,  USING  CONSTANT  AREA  mESm 
SPPOPGT  OPL2»*000..  ROCUNVao,,  wINOOXaO.l,  WiNOOWaO.l, 
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IIFCnsl,  IIThi«Ot  IlHSsO.  SENn 

iCO:4T-<L  IPLOvtaH,  iENO 

f»LOT  PPCW'ACjATEU  EIELU 
iPLCT  $PNn 

Pf^OPAGATED  FIEl.O 
iCONTwu  IPLO-<aP.  Se>jO 

weti.pn  to  main 

SSTaST  fpNO 

•  fcOR 
»EoP 


2.  PROPAGATE  FOR  USERS  GUIDE  -  VAMP 


100aJRAUG,STMFX.P60.T77.ECl.  PROPAGATEFORUSERSGUIDEVAMP.  lD*LflEPPEF 
1 10*ACCOUNT(JRALT,0001 1498-1  EL.LRO,1487) 
l20aATTACH(OLDPL,SOQ77l28.  IO=LROPJRA.  ST=ANY) 

'  130=UPOATE(F) 

140=FTN(I,LCM=I.PL=20000.L=0) 

150=RETURN(Ol.DPL) 

160=COPY,  INPUT.  TAPES. 

170=flEW(NO,  TAPES. 

180=flFLEC(430) 

190=LGO{PL=60000) 

200=RFLEC{1) 

210»’EOR 
220a*  EOR 

230a  PROPAGATE  A  MIRRORED  PLANE  WAVE  A  DISTANCE  DELZ  -  VAMP 
240a  SSTART  WWLaO.00106.  NCALLa2.  DCALaS.6.  NNPTS=128, 

2S0a  lBa8,  DDRXaO.O,  DDRYaO.O,  AMPGES=20.0.  DGAUSSaO.O, 

260=  RESTRTa.FALSE.,  PLOTSal.O,  IN=5. 

270=  SYMTRCa.FALSE.,  PHIRAD=0.0,  SEND 

280=  PROPAGATE  A  MIRRORED  PLANE  WAVE  A  DISTANCE  DELZ  -  VAMP 
290=  SCONTRL  IFL0W=2.  SEND 
300=  APPLY  A  MIRROR  TO  THE  PLANE  WAVE 
310=  SMIROR  OIAOUT=4.0.  OIAIN=0.0,  XMPOS=0.0.  YMPOS=  0  0 
320=  RADC=-400..  RMIRal.,  =SENO 
330=  SCONTRL  IFL0W=8.  SEND 
I  340=  PLOT  THE  MIRRORED  PLANE  WAVE  FIELD 
I  3SO=SPLOT  SEND 

!  360=  INITIAL  MIRRORED  PLANE  WAVE  FIELD 
I  370a  SCONTRL  IFLOW-3.  SEND 

I  380=  PROPAGATE  THE  FIELD  200.  CM.  USING  VARIABLE  AREA  MESH 
i  390=  SPROPGT  DELZ=200.,  ROCURVaO..  WINDOX=0.1.  WINDOK=0.1, 

400=  IIFG=2.  IITRsI,  IIPS=0.  SEND 
410=  SCONTRL  IFLOW=8.  SEND 
420=  PLOT  PROPGATED  FIELD 
430=SPLOT  SEND 
440=  PROPAGATED  FIELD 
450=  SCONTRL  I  FLOW*9,  SEND 
i  460=  RETURN  TO  MAIN  PROGRAM 
470»SSTARTWWL=-1..  SEND 
480=*EOR 
490=*EOF 
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QUALITY  FOR  USERS  GUIDE 


j.yfl'JUf'3  I  X  ,P<K)on  «  I  I  /  /  «KLi  .  -JuaLIlY  huw  bi'IUt 

aC  COUNT  t  JH  alt  «•*♦<»*♦■»■»-**«  fL  WO  ♦  1731) 

L'K  Tt>F  (OlDHL  «<;0(j  7  7  U’iJ*  I ) 

be.  TPF  (  TAP£«*ilStWStjiJintWArttCut  IlJs^<»«»*->*) 

UPDATt  <F .W) 

PTi'X  I  »I.CW=T  «PL=^OOnu»t.  =  0»A) 

-FTiiWNtOLQPL) 

COHYCW* INPUT . TaPFS. 

WEwlNlJ.TAPFW. 

PKLF.C(^3Q) 

L(3U(PLs(j00n0) 

WFL£C<  1  ) 

«tUP 

find  The  uiiALirr  OF  fuE  F  IF  LI  I 

%STaST  WWL=0.01)H}A»  *)CALL  =  2*  .)C  aL=  I  3  .  7tJ .  MNPTS=1?«» 
Iriso.  OPPXsO.Of  nOPTsO.O.  AMP(iFS=l.U.  ObADSSsC  .0 . 
P£SrwT=  .TPUF..  P'wOTSsi.n.  1NS5. 

SYMTPCs.FALSF, «  PhIOA0*U.0.  FF 4u 
FINU  The  ijiiALlTY  v)F  Tut  F  IhLO 
^COmThL  TFlOwaP,  «t'JO 
PLOT  The  FIFL'J 
•kPLUT  Hf.MO 

FIhLf'  AT  Input 
:fCONTWL  TriOwsb*  «Eno 

PFTPhm  Ti'  '^AIM  PUOtjPftM  KOP  OijOLlTv  C  Al  COI  A  T  [  n.' 
is  1  AP  I  NCAl  1=4,  it.  iL, 

i;P  2  10»*>S 

ioLOT  r)B=in,H<»,  ISAv  =  0,I'JlT  =  0,  lHMaSc.  =  3»  iFNO 
ow  •=  ItJ.bA 

iSTAPT  tawL=-l..  iFNO 
»F  JF 


4.  DESIGN  A  BARE  CONFOCAL  RESONATOR 


kssxme  that  one  wishes  to  design  a  positive  branch,  unstable  bare 
resonator  with  a  collimated  output  beam  for  a  given  geometric  coupling 
Cg,  length  L,  and  concave  mirror  size  (a^) .  To  solve  this  problem  design 
a  confocal  resonator  in  the  following  fashion: 

Geometric  Resonator  Design  (Fig.  74). 
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Define  the  following  parameters 


CCM 


Figure  74.  Geometric  resonator  design. 
Recall  the  definition  of  geometric  coupling. 


A  2  2 

C  >  ^  *2  ~  1 

*  NxJTAL  ffal 


But  M  «  *2^*1  magnification  of  the  resonator,  thus 


Cg  *  Cg  »  1  -  -y 
M 


Or  inverting  this  expression,  one  finds 


M 


_ 1^ 

Vuc 


g 


C268) 


C269) 


C270) 


Given  the  magnification  and  length  of  the  resonator,  one  can  find  the  required 
mirror  radii  of  curvature,  since  for  an  aligned  confocal  resonator  both  the 
convex  and  concave  mirror  foci  are  coincident.  Figure  7S  describes  this 
coincident  feature. 

1 


a.  The  focal  lengths  can  be  related  to  the  magnification  by  noting 


that 


tan  9 


therefore 


The  focal  lengths  are  then  found  to  be 


C271) 


(272) 


f 


1 


L 

“  M-1 


and 


ML 

M-1 


(273) 


Since  the  radius  of  curvature  of  a  mirror  is  twice  its  focal  length,  the  two 
radii  of  curvature  are 


R 


1 


2ML 

M-1 


(274) 


where  the  negative  sign  indicates  a  convex  mirror  and  the  positive,  a  con¬ 
cave.  For  example,  if  L  =  200  cm  and  =  0.75,  the  magnification  and  radii 
are  found  to  be 


M 


Vo. 25 


=  7 


(275) 


-400  cm 


and 


-(2) (-400)  *  800  cm 


(276) 


b.  Tube  Fresnel  nianber  —  The  tube  Fresnel  number  for  this  resonator 
can  be  found  by  the  fact  that  the  expanding  pass  propagation  distance  L  has 
an  equivalent  collimated  propagation  length  of  ML  so  the  round  trip  colli¬ 
mated  propagation  distance  is  (M  +  1)L.  The  tube  Fresnel  number  is  then 
(assuming  the  CVM  is  2.0  cm  in  radius  and  the  beam  has  a  wave  length  of  10.6 


“  fM+l)L,\ 


(2)- 


(3) (200) (10.6x10'  ) 


=  6.29 


(277) 


c .  Computer  requirements 

(1)  Overlap  --  Since  the  beam  diffracts  during  propagation,  it  is 
necessary  to  have  a  large  enough  calculation  region  to  always  contain  the 
beam.  The  required  overlap  can  be  calculated  according  to  Sziklas  and 
Siegman  (Ref.  2)  as 


G  >  1  >  —4 - 

2ir"N.pe 


(278) 


where  e  is  the  tolerance  on  fractional  energy  loss  during  propagation.  Taking 
this  to  be  0.02,  one  find  the  guardband  to  be 


G  >  - - -  =  1.4 

27r*(6.29)  (0.02) 


(279) 


Thus  the  initial  calculation  region  must  be  at  least  G  times  the  beam  size: 


DCALC  =  1.4  X  2x2  =  5.6  cm 


(280) 


(2)  .Nlumber  of  points  required  —  Sziklas  and  Siegman  also  show 
that  in  order  to  adequately  sample  the  beam,  the  number  of  points  in  each 
dimension  must  obey  the  following  inequality; 


Np  >  4G(G  ^  1)  N.J, 


(281) 


This  becomes 

Mp  ^  4(1.4)(2.4)(6.29)  =  8S 


(282) 


Standard  input  for  the  SOQ  deck  is  128  by  128  so  this  criterion  is  satisified. 


d.  SOQ  input  «-  As  a  result  of  the  above  discussion,  the  parameters 
used  for  a  bare  resonator  test  case  could  be  the  following: 
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NPTS 


128 


DCAL  =  3.6  cm 

CVM;  RADC  *  -400  cm 

DI.AOUT  =  4.0  cm 
DIAIN  =  0.0  cm 

DEL2  =  200.0  cm 

CCM:  RADC  *  800.0  cm 

niAOlIT  =  8.0  cm 
DIAIN  a  0.0  cm 


5.  RESONATOR  FOR  USERS  GUIDE  -  BARE 


JhJAHW  fSIMFX  .p*000  .  T  1  7  /  ,£C  1  .  HfcSONA TOPFOhUSF WSGU T  l)E 8 AHE 
ACCOUNT  (JH4(_T  «*•»'»*♦**•-***  »LWO«  1  731  ! 

SEUueST (TAPtft.*PF) 

WEUUtST (TAPEP.*PF) 

GE IFF (OUOPL .S0Q77128* I0s**«*»**> 

UPU4TE  (F«N#m,L.sO) 

F  tn(  I  .LC*<sl  .Pt.s2onno.LsO«Ai 

‘'ETUPi'KOLOPLl 

CUPyCP.INPUTtTAPES. 

PEwIN0«T4Pe5. 

(it  TPF  (PfcHfUSFPSGHrOEPAPECUSMt  lus***^***) 

GETPF  (Pe9«USFPSGllI0tPAWECU«  ) 

PFLEC (430) 

LGU  (PL»'i00n0) 

PFlEC  (  I ) 

PUHGE (WAPEA.dGFPSGUinfcPAMECuSMt  HJ=**«**** tLC*  I ) 

PuHGE  (WAPEq,iiSEPSGl)inEH4PECu»  l03***«***»LC  =  l  ) 
catalog ( T4PEH»USFPSGi)IDE0APECUSM»in****»*** .RPsPPP) 
CAT4L0G( TAPEP»USFP5GU10F8APECU. Ii)=********PPsPPP) 

•EOR 

•EOP 

SIMPLF  CONFOCAL  RAPE  RESONATOR  -  M»2.  NTU8E«5.03 
4STAPT  WV»L»0.nolOftt  NCALL*2t  0CAL«6.4.  nnPTS»12B» 
ia»8*  DOP*»O.Ot  OORY«0.0»  AMPGE5»<?0.0»  nGAUFS»0.0» 
PESTRTa  .TMUE.t  PLOTS»l.O«  I-4«5. 

SYMTRC«, false. t  PHIRAO«0,0.  SFNO 

SIMPLF  CONFOCAL  8ARE  MESoNATOH  -  M«2,  Nru8E«5.03 
SCONTRL  IrLOw»2*  SEND 
APPLY  CVM  MIRROR 

JMIHOR  MAt)C*-20nO.  .  0I4OUTs4,0*  niAlN»0.0,  RMIRs.RRT. 
0ELTA*n,n.  ANGXAaO.O.  ANGYYaO.n.  XMP0b«n,0.  YMpOS«0,0. 
DISTFafl.n.  SEyO 
iCONTRL  IFLOwart.  ^ENO 

PLOT  THE  CVM  FIELO 

splot  send 

The  CVM  field 
SCONTRL  IFLOR*3«  SEND 
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THP  FIFLO  TO  ThE  CC^  USING  VAmP 
SPPOPQT  nELZ«lnnO..  WlNOOAaO.l.  alNUOKaO.l.  TIFG»2.  IlPSaO* 
riTMal.  POCtUPVainOrt,  #  JENU 
SCONTWL  TFlOwaP.  «ENO 

PLOT  ThF  field  TNCIOENT  ON  CCM 
iPLOT  tENO 

FIELD  INCIDENT  ON  CCM 
JCOnTPL  1FL0<*«2*  iENO 
APPLY  CCM 

SMIPOP  R40C=*OnO.*  UIAOUTafl.*  1*£NO 

iCONTPL  IFLOWafl,  FEND 
PLOT  THE  CCM  FIELD 
iPLuT  SEND 

FIELD  aFTEP  on  CCM 
SCONTHL  IFLOWaJ,  »£NO 

PPOPAGATE  The  FIELO  RACK  TO  ThE  CVM  USING  CONSTANT  AREA  MESH 
iPWUPGT  DELZalOOO.t  .^INOaXaO.l*  alNOOKafl.l,  HFGal#  lIt»S*0* 
lITHaO*  O0CUWVa0,0.  SfeNO 
■fcCONTRL  IFLOnaft.  iENO 

FIELD  CUTOUT  AND  INTEHPULAT  iUN  FOW  TrlE  NEXT  PASS 
iCUTOuT  niREAMs4.0.  0VPLAPal.6«  OxxPaO..  DYYPaO.t  MAXiTaS. 

AVCUSMaO.O*  send 
SCONTPL  IFLOwaD.  SEND 

PLOT  The  field  INCIUtNT  ON  CVM 
sPLOT  SEND 

field  INCIDENT  ON  CVM 
^COnTPl  IFLOasT.  i£NO 
CONVERGENCE  test 
SCONTPL  IFLOWaq,  FEND 

pETuhn  To  main  pro6ha“ 

■45TAPT  aWLa-1,,  %ENO 
*EOP 
“EOF 

RESONATOR  FOR  USERS  GUIDE  -  LOADED 

JHALP  *STMF  x.P4  0nn«Tl77.tCl«  hESONA  TOWFOHUSEPSRUIDEUOAOED 

ACCOUNT ( jHALTt***“**“*-““**LPUf 1 731  I 

PEOUEST(TAPEa.“PF) 

OEGUEST ( TAP6q,*PF) 

HEOUFST ( TAPEl 1  .*PF) 

PEUUEST ( TAPE  12. “PF ) 

PE0UEST«TAPE13.*PF) 

G£rPF(OLOFL.SOu77l28.ina*a*“***) 

UPOATe(F,N,w«L»0> 

FTN( r .LCMal ,PLa2nonO.LaO.A) 

PETUHN(OLDPL) 

COPYCH. INPUT, TAPES. 

PtalNO.TAPFS. 


GETPF (Taper. USEFSGUlOfcLOAOtUCUSM. rOaa*a*a**( 
GETPF (Tapes. uSFMSGUIDtLOAOtDCO. lOa*******) 


GETPF (TAPEl 1 .USESSGUTDELOAUEDCGI 1 .IUa*a*a***) 

getpf (Tape 1 2 .useosgu  toeloadedcgi 2 . loa**-**** ) 

GETPF ( Tape  13. USEPSGUIOELO AUEOCu 13.1 Da*******) 
getpf ( TAPEll .OPDl 1311 AlPTbStCCONTxr.IDa*******) 
PFlEC (4J0) 

LGO(PL*AOOCOI 
PFLeC( I ) 
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»UMGE (WAPEfl.USErtSGUinELOftueuCUSM.IOa*******.LC»l ) 

PUH6E  (WAPE9.USERSGiHnELnAD£0CU»lL)»*««****tLf»l  ) 

PUHRE  (WAPF.l  I  .USEOSGUlUELOAUtOCGl  1  «  IU=*******  ♦l,C»  1  ) 

PUKGE  (WAPE12.USEWSfiUT0EL0ADEDCGl^.IUs'»*****<»tLC*l  ) 

PUMGE  (  *iAPE13.USEPSfiUTUELOAl)EOC(>l  J.  tO»*******.LCal ) 

CAT'AL0G(  TAPEPtUSEPSGlIIOELOAOEUCUSM,  IDa**<»****  ♦PP«P'>P ) 
CATALOG  (  TAPtP«USE><SGU10EL0A0EDC'J»  IDa*«*****,PPaP9P) 
CATAL06(TAPE1  1  .USEPSGUinELOAOEuCGl  1  .  lL)s**-»****,PP»999> 
Catalog*  tape  i?*iJSE9SGutn6LOAOEC'CGi2*  ios******«,Rp»qqo) 
CATAL0G(TAPF1  3.USEPSGUrT)£LOAr)Et)CG13«  IDa***<»*«*tRP=999) 
*EUR 
♦EOR 

SIMPLE  CONFOCAL  LOADED  (?£SoNATO«  -  Ms?,  NTUPEs5.03 


SSTAMT  WWLsO. 00106,  NCALLaZ*  OCALa6.4,  NNPTSs128, 

1038,  OnwxsO.O*  onPYsO.O,  AMPGES320.0,  OGAOSSsO.O, 

PESTPTa  .TRUE.*  PLOTSsl.O*  INsS, 

SVMTRC*. false. »  PHlWAOsO.O,  SEND 

SIMPLE  CONFOCAL  LOADED  RESONATOR  -  Ms?,  NTURE^S.OS 
SCONTRL  IFLOWs?,  «EN0 
APPLY  CVM  mirror 

SMIROR  HAOCa-2000.,  OIAOUTsA.O,  DlAlNsO.O,  RMIRs.RQT, 
OELTAsO.O,  ANGXXsn.O.  ANDYYsO.O,  XMpOSsO.O,  YMPOSaO.O* 

oistfs2.e-7,  send 
SCOMTRL  IFLOWsa.  SEND 

PLOT  THE  CVM  field 
SPLOT  SEND 

the  CVM  field 

SCONTRL  IFUOws.l,  SEND 

PROPAGATE  the  FItl.D  TO  THE  CAVITY  USING  VAMP 
SPOOPGT  OEL73lOft.«  RlNDOXaO.l,  RlNUOKsO.l,  IlFGsg,  URSsO, 
IITRsO*  HOCURVslOOO.,  SEND 
SCONTRL  IFLOssI,  SEND 


APOLY  GDL  CAVITY 

SCAVTYl  NCAVNOsl,  NSTF34,  ILR»1«  !hPlT  =  0, 
ZPHOP03l«50.  ,  SEND 

SCAVTY2  XLENS24.  J2,  YLENsU  JLEns/SO., 

NOOX3190,  NOOYS90,  N0StG»3* 

NGTYPEsO,  NGPLOTaO,  IPOEN»Ot 

T1s391.?,  T23395.2,  TlsiEa^,, 

TS3313.,  PSs,0422.  V31Y1J80,, 


7PPOPIsO.» 

XMCAVsh, . 
Flags 1 1 , , 
lUSEs-l , 
TN23l33J.6» 
PHRCHsis. , 


YMCAVsO. , 
MRESTsO. , 


XN23,dlAl.  XC02=.l38a, 

AVGAINa,3,  SEND 

USERS  GUKiE  LOAOEu 
SCONTRL  IFL0W32,  SEnO 
APPLY  CCM 

SMIROR  RADCs4000.,  DIAOUTsb., 

SCONTRL  IFLOWsH,  SFNO 
PLOT  ThF  CCM  FIFLO 
SPLOT  send 

FIFLI)  AFTER  CCM 
SCONTRL  IFlOVisl,  SEND 
propagate  The  field  hack  Through  the  cavity  using  constant  area  mesh 

SCAVTYl  NCAVNOsl,  NSTFsl,  lLRs-1,  NPlTsO,  /PROPIslSO., 

7PROP03lon.,  SEND 
SCONTRL  IFlORsA,  XEnD 

FIELD  CUTOUT  AND  INTERPOLATION  FOR  The  NExT  PASS 
SCUTOllT  0IPFAMs4,P,  UVRLaPsI.b,  OXXRsO.,  jYYRsfl,,  MAXiTsJ, 

AVCUSMs-1.,  SEND 


XH20S.U146,  XC03.0n44,  X02s.024l, 

resonator 

SEND 
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SCONTBL  IFLO»(»ts.  4>-‘NO 

BLOT  The  f’lELO  INCIUt^T  QN  CVM 
SBLOT  iFfjO 

FIELD  TNCIDfeNT  ON  CVM 
SCONTBL  IFlOks?.  JEnO 
CONvEHGtNCP  TEST 
4CDNTBL  IFl.O'-sO,  SFNO 

»ErU«N  TO  '44  IN  BPOGRAM 
ibTAHT  -JKLs-l.*  ?E'''U 
♦EUB 
»EUF 


SAMPLE  CODE  UPDATE 

The  following  file  is  included  to  illustrate  the  set  of  updates  which 
would  be  included  to  add  a  subroutine  to  the  existing  SOO  group  of  subrou- 
tines.  The  updates  are  comprehensive  in  that  they  illustrate  conmon  modifi¬ 
cations  and  include  a  namelist  and  subroutine  within  the  beam  quality  calcu¬ 
lation  division  of  the  SOQ  code. 


JkA/W«brMFX, BAOOri.  f  I mod  itHNi^t  REMOVAL  TO  SOU 
ACCOUNT  ( JR  alt  »•••<**•«•-•**  «LR0»  1  T31  > 

GfcTBF  (OLOPL  .SOOTTlErt.  ll)s***<»**») 

UPOATETF.W) 

FTN<  I  »LCM«I  «PLa20(100«L»0«M) 

RETUHN(OLDPL) 

COPrCH* INPUT «TARFS« 

BEwlNOtTAPFb. 

RFLEC ( A30) 

LGO(PL«600on) 

RFLCCT 1 1 
'»EOR 

•10  2HMIKE 
•I  G0L.;'61 

rZEWN  »  0 
•1  G0L.31S 

I/tPN  a  0 
•I  S0077CV1.165 

C  -23  apply  up  to  2A  ZEBNiKEb  IN  UNITS  OF  WAVES.  REAOS  ZERNS 

•I  QUL.29 

LOGICAL  FRINGE 
•0  G0L.295.SO07TCV1 ,le7 
C  /16  /17  /Ifl  /IB  /20  /21  /22  /23  / 

X. lAO. 1 70. IflO.lBO. 200 .21 0.365. 230) . IFLPW 
•D  GOl. J25.SOU77rYl ,168 

C  /16  /17  /IR  /19  /20  /21  /22  /2J  / 

X.  160. 1  70.  lflO.lBO.200.21 0.365.230)  .  li^Hiw 
•1  GOL. 327 

. . . . 

C  APPLY  7ERNME 

. . . . . . 

230  IZERN  a  I/EHN  *  1 

IF  (.NPT.INIT)  go  to  2aa 
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PPINGt  s  .PALSF. 

DO  24«  Ialt24 
248  P(I)  s  0. 

no  24Q  1=1.35 

244  PFMN6( I )  =  n. 

PEAO  C^.ZEPNSI 
00  239  1*1.35 

239  IF (PFHMG( I ) .NE.O. 1  FwINQfcs.r, 

IF ( .NOT.FPINGEJ  GO  TO  241 
WMITF(f«.245) 

245  FORMAT (/SX.*FMINGE  COEFFICIENTS  BEING  CONVERTED  TO  SOO  ORUE«,*/) 
P(l)  a  0. 

P(21  a  PFRNGU) 

P(3)  a  PFMNG(2) 

P(4)  a  PFWNG(3) 

0(5)  a  PFRNG(4) 

P(6)  a  PFRNG(5) 

P(7)  a  PFRNG(6) 

0(8)  a  RFHNG(7) 

•  P (91  s  PF«NG(91 
P(10)  a  PFPNG(IO) 

? ( I  1 )  a  PFRNG (fl) 

P{12)  a  PFRNGdl) 

P(13)  a  PFRNG(12) 

P(14)  a  PFRNG(16) 

P(15)  a  PFPNGd?) 

0(16)  a  PFPNGdJ) 

0(17)  a  PFPNGd4) 

PdS)  a  PFPNGdB) 

0(19)  a  PFRNGd9) 

P(20)  a  PFRNG(25) 

P(21)  a  PFRNG(26) 

P(22)  a  PFRNGdS) 

P(23)  a  RFRNG(?4) 

P(24)  a  PFRNG(35) 

IFRTST  a  n 
DO  24«j  XaZO. 23 

2*6  IF  (PFHNG  (Id  ,NE,0.  )  IFHTST  a  1 
no  243  Ka27.3* 

2*3  IF(PFPNG(K| .NE.O.l  IFRTSr  a  i 
IFdFwTST.FO.l)  aRITE(6.2*T) 

2*7  FORMAT (/5X. •warning  -  FRINGE  COEFFICIENTS  OF  ORuER  20  THROUGH  ?3», 
C  *  and  ?7  through  34  ARE  IGNORED*/) 

2*1  DO  2*2  ral,2* 

2*2  PZSAVEd.IZERN)  a  P(I) 

PZSAVE(25.IZERN)  a  WO 

2**  CALL  ZFRN(PZSAyE(25»iZEHN)  ,P7SAVEd»I/FRN)  ) 

IGNAL  a  1 
GO  TO  909 
•0  G0L.27 

dimension  IPlTS(50) .PZSAVE(?5»10) .R(2*) *PFRNG(3s) 

•I  G0L.3J 

DATA  P.PFWNG/2**0. t35*0./  .  RO  /  5.  / 

•1  G0L.2*3 

namelist  //ERN5/  RO.WfPFWNG 
RO  a  radius  OVFR  WHICH  ZER.MIKES  A«E  VALID. 
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♦  no 


P  a  APPAY  ZEWNIKE  COtFF IC lENTS. 

PPPNO  a  APPAY  FWTMGE  ZEHNIKE  COtFUCIF^TS  (CONVtPTED  TO  P  IN  GPL). 
I  L»OPl.3flS 

SUHROUTINE  ZERN(R0*P1 
LEVEL  P.C'JP 

COMMON  /melt/  cur (327681 .CF IL ( IPB 1 2 )  *  X (  1 2« )  twL«NPTStMPY .OWXtORY 
complex  cfil 

niMENSION  P(241 
rFIRO.FO.O.)  GO  TO  70 
00  100  lYal.NPY 
J1  a  <rY-l)*NPTS 
YSQ  a  XtIY)«*2 
00  100  rxal,NPTS 
XSO  a  X(IX>**2 
iNOX  a  IX  ♦  J1 
R  a  Sup T (XSO* YSQ 1 
52  ThET  a  ATAN2(X(1Y) ,X(IX) ) 

R  a  AMINl (R/R0«1.) 

Cr  a  COS(TmET) 

C2T  s  CUS(2.‘*ThET) 

C3T  *  COS(3.*THtT) 

C4T  a  C05(4,*ThET) 

C5T  a  C(1S(S.*THET1 

A/w  I  !i  •'(/'•►LI.  rtl/0  ^V^MlJv4L  1 0  'S'liJ 

ACC'.'I.'UT  ;JHA|.  r  1  f  i 

fje^PF  ('■'I.L/Ul 
jPi; Arp 

P  (•'4(  1  .LCMaJ  ,Pl  s<;o  (10  0.  L  »<>•«> 

Wfc  riiWN(OL('PL' 

COPVCR.  INPUT  ,  rAPFP>. 

Pt*.  tN(^,  f  A0P«i, 
pFlPC  (A  (0) 

l.(3U(PL=600O(|) 

PPUCC (  1  ) 

OR 

•lu  /RNIKf 

rZEPN  .  ,0 
»1  «11L.31S 

l/fcPN  s  0 

•I  suwr^CYl.lh^ 

C  a  /J  apply  up  Tu  2<»  ZEP.IfKEs  !f4  UNITS  OP  *AVFS.  PEAIS  ZFPNS 

•I  OUt.ZR 

LUGICAl  PPINUt 
•L(  'iUL.295.SUNY/rTl  .  167 

C  /16  /17  /IH  /19  /20  /81  /22  /^3  / 

X.  160.  I  7  0. 100.190. 200. 2 1  0.365. 2301  .  IKLf'W 
*U  GUl.  }2S.Su(4  7  7rrl  ,168 

C  /16  /\r  /iM  /IN  /2n  /2l  /?2  /2J  / 

X  .  160 . 1  70 . 180  .  luo  .200 .210 . 36S.2J01  .  li-LU* 

»;  GOL.127 

. . * . . 

C  Amuly  /FWNIkE 


230  I/PP'''  a  l/fcWN  .  I 

IP  (.NUf.lNfT)  (,0  TO  2*6 
PPINOt  a  .PALSP. 
no  248  I  a  1.24 
248  0(1)  a  ,1. 
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o  t  >  o  o  ♦ 


(ID  Isl  , 

(I)  s  n. 

JtAO  iA,^K>'';Si 
n<j  2^^  1  =  1 .  !«; 

21«J  IF  I  )  .\fc.0.  )  T. 

IP  (  .MuT.^  h(  IrA^t  !  tin  Tu  >><.1 

t'.u's  PO(<M4 r  ( /sx , »Fhi Ti\((,E  cotPPicifcNrb  hlino  rt’NvEurpn  To  sm  oPoEt^.*/) 


p  ( 1 ) 

s 

0. 

P  (2) 

3 

pFPnG ( i ) 

P  (  3  ) 

3 

PFWJG(2) 

P  (4) 

3 

PFpNGI J) 

A  (S) 

3 

PFPNl,  (  4  ) 

P(ll) 

X 

PF  PNG ( s ) 

2(7) 

3 

pF  4NG (n) 

Pm) 

3 

PF  P(,'o  (  7  ) 

•  p(<») 

3 

pFpNG ( P) 

P( 10)  a  PPUNRllU) 

?( 11 )  a  HPUNGIfl) 

P ( 12)  a  mPung  (11) 

P(13)  a  )'PJNG(!2) 

P(14)  a  Ppy^^(l(lh) 

P(15)  a  iJF.?NG(17) 

P(l'))  a  PPUf.l(i(lJ) 

P(l/)  a  iJP  (  1  4) 

P(  1?))  3  PpJNGilH) 

P  (  1<J)  a  ^PPNG  (  I  V) 

P(20)  a  PPaNG)?^) 

P(2l)  a  PPPf|G(?6) 

P (22)  a  PPPUG ( ) P 1 
P(2J)  a  PPPNi.  (24) 

P(24)  a  PFP'(‘iC1b) 

IFprsr  3  A 

no  24*5  •<a2i1«2.) 

2*^  IP  (PPP(i(;  (It )  .Nt  .0  .  )  IP-<TS7  a  1 
no  24  1  K  =  f  7 ,  i<» 

2*,^  I P  (  PFpA'G  (  *  )  , 'it  •  0  .  >  IPHlbl  s  I 
IF  ( IPpTGT.Fo,  1 )  •PITfc(4.247) 

247  FOPIIIAT  (/«*,»WftPNlNG  -  PW1N(;F  COKFFICIFMb  OF  OPut'^  20  ThPjI)i,m  ?3» 
C  •  ANfi  2  7  7hmu"Oi  .14  APt  lONOPtO**/) 

241  no  242  fal.24 

242  P2SAVF ( I . : /PP Wl  a  P(l) 

P2SAVF  (2S.  I/PPN)  3  Pu 

24*  CALL  2PPN  (P2SA7t  (  AS*  UPHN)  ,P7SAVt  t  I  »  I  2PP<1)  ) 

IGNAL  3  1 
G«)  TO  q«0 
*0  GUL.27 

D  IMP  NS  I  074  IPLTS(SO)  «P2SAi7t«?S»l")  *P(24)  .PFWXOOS) 

•I  nOL.  )J 

OAIA  P.Pxp'J<i/24»0.  t  Jb^O,/  «  Pi)  /  b.  / 

•I  r.0L.2'*3 

NAT^El.  1ST  //fPiMS/  POtPfPPPN., 

P()  a  PAftOS  OVFp  /tPNiKfcb  aPF  VALin. 

O  a  4PP4V  /FP^llKP  CUtFP  ICIENTb. 

PPPNr.  a  APPAr  FPI'IGE  2f«NlKF  CUtPFILiPNTS  (rONVfePTFIJ  Ty  P  IN  GPL) 
I  I.POP1.3AS 

SUHPOoTI'iF  7FPN(pnfP) 

LpVEl  2.C'/M 


/*"•  L  T/  '■‘J"  (  J2  >  .CF  lU  (  Kj*!  I/* )  t  X  (  1  )  .«L  tl)«Y 

'tOMPLfe.x  :>-tL 

TiMeM-spifj 

TF(Bf'.K'J..).'  ijH  ’■,'1  /o 

00  l''0  lYsl.NPV 

J1  a  (TY-1i-NPT^ 

YSO  s  »  i  »  Y 1 

Oi)  I'l'-,  T  »sl  ,r  >iTi, 

xso  *  t  ( !  X 1  ««£; 

I'inx  a  tx  .  Ji 

«  a  S<<(J  r  '  xsu*  Y^(j  ! 

St*  T-FT  =  i  T  4-4/J  (  X  (  I  y  )  ,  X  (  I  X  )  j 
a  AX,  t  -il  1  ,  1 

C  r  a  ( r>4e  t  i 
r^T  a  r,'S(?.<‘TMtTl 
CJT  a  r'!«;(  --i.ttrwtri 
C<.T  a  rn^(4,»Ti-(tTi 

C5T  a  ri'S  lS.«TMfe  r  1 

ST  a  STN(Th£T) 

S?T  a  SIM(?.«rHtT) 

S3T  a  <llN(3.*TM£r) 

S4T  a  SlN(4.«TH£r) 

SST  a  SIMS.*Th£T> 

(32  a  0*a2 
W3  a  p*«2 
P4  a  P*B3 
P5  a  p»U4 
«6  3  W4P5 
PH  a  H?*»6 
«10  a  P2*«fl 

n£L  *  P(l)  ♦  0(2)*H*C1  ♦  P(3)*H*S1 

A  ♦  P(4)*(^,»P2-1,) 

tj  ♦  P(5)«P2*C2T  *  P(<j)«P2*5^r 

C  ♦  P  (  J' )  *  (  3,  *Pi-2»*P»  •CT  ♦  P  ( a )  •  (  3,*h3-2,  •P )  *51 

0  *  P(9)*P3«C3T  •  P(10)*W3*S3T 

E  ♦  P ( n ) * (A.*P4-p,*H2*1 , ) 

F  *  P ( 1 2) • (4.»P4-3«»H2) ♦CPr  ♦  P ( 1 3 ) • (4, *94-3. *P2) ‘S^T 

(j  ♦  H  (  14)  *H4«(^4T  ♦  P<lb)*M4*S4T 

H  .  P(liS)*(10.*P5-12.»WJ*3.*W)*CT 
r  ♦  P(17)»(10.<»P5-l2.*P3^?.*P)‘»9r 

J  •  P ( lA) • (5.*P5-4,*P3) *C3T  »  P( 19) *(S.*PS-4.*P3) *S3T 

•<  *  P(20)*HS*C5T  *  P(21)<»H‘»*>>5T 

L  ♦  P<2?)»(20, *96-30. •P4*l2,*P2-i,) 

*«  *  P<?3)*(70,*W8-140.*M6*9(),*P4-20,*92*1,) 

*  f'(24)*(2b2.*Hlo-630.*H8*560,*P6-?lo,*H4*J0,*«2-l .) 

60  INO?  a  IN|)X»2 

DEL  a  nEL*2. *3. 141592654 
COSO  a  COS(OtU) 

SINO  a  SIN (DEL) 

CUPS  a  CUP(IN02-1) 

CUP(lNn2-l)  a  CUW5*COSO  -  CUR ( INOe ) *5 TND 
mo  CUM(INP2)  a  CURS*SINO  ♦  CUR  ( IN02 )  *C(>SD 
WRITE  (6.200)  OO.P 

200  FORMAT  (•('ZFBNIKfc-  PHASE  CORRECTION  APPLIED  WITH  NORMALIZATION* 
A  *  RAoruS  OF  *.G15.4  /*  COEFFICIENTS  USED  P ( 1 ) -P ( 2- ) *  . 

d  •  AOfc  COa'SISTFNT  with  The  pmaSE  OUE  TO  th£  nTh  T£RM  REINQ*// 

C  20X.24H  PmI(i>3)  a  2*Pl*P<N)  */ (N) // 


0  *  Z(N)  S  (THETA)  (  MF(n)  MOHMALIZEJ  to  1.  AT  Ral.*// 

E  (IX.^GPO.S) ) 

BETUPN 

7  3  N08  *  ^/prl^•^^PY 
1)0  an  isi.Noe 

rrsr*r 

IlMlsTI-l 

CURIIIMU  3  S0RT(CUH(n»««^*CUH(II'‘l)**2) 

90  CUR(II)  •  n.o 
i<i»ITF(#,,.inn) 

300  format  (//I  ox.  acu  PHASE  HAS  BEEN  SET  Tf)  ZE»0  IN  SUBROUTINE  ZERN*//) 
RETURN 
END 

•EUR 

TEST  ZEPNIKF  AUntTru.>4 

SSTART  WM(.s0.nol06«  NCALU>2*  OCALsIS.*  NNPTSaI?9« 
ia«Bt  Ol)UX30.n«  nOQYsO.O*  AMP6ES«20*nt  OGAUSSsO.Ot 
RESTRTb.TRUE. t  PLOTSsI.O*  IN*S, 

SVMTRCs.F ALSE. »  PHIRAO*0.n.  SEND 
ST  3  srN(THeT) 

S^T  3  SIN(?.*rHtT) 

sir  3  siN(i.*rMtn 

SAT  3  $IN(A,«THfeT) 

SSI  3  <;rfs (s.^tmet) 
an  3 
B3  3  UeW2 

U4  3  M«P3 

BS  3  C<»W4 
B6  3  P*PS 

BH  3  w?*P6 

RIO  «  Wi'^Ra 

OEL  3  “(1)  ♦  ®(<?)*W»C1  ♦  R<3)*B*S1 

A  •  M ( A) • (^.•P^-l . ) 

d  .  0(5)*P^*C2T  *  P(<j)  AR^AS^r 

c  ♦  p  ( /)  *  M.*w  )-2.*R)  "CT  ♦  P((5)  •(  l,ABl-?,*0) ‘ST 

1)  «  P(9)«RJ»(.JT  •  P(iai*H3*SJT 

E  *  p  (  n  )  •  l''.•RA-o.•R2•l  .  ) 

F  .  Pt  12)»<A,*Ra-3,»R<;)«C?I  ♦  P{  l-»t  •  (a.*WA-J.»R2)  •S2T 

li  .  ►>  (  14)  ABAAfAT  *  P(1SI*ha*SaT 

H  .  P  ( l)S)  A  ( 1  u,aBS-12.*h  J*3.*W)  *CT 

I  .  P  (  I  T)  A  (  1  (j  .  amc,.i2.»bJ*'».ah)  AST 

J  .  p ( IBI A  (S.ABS-A.APJ)  ACJT  ♦  p ( 19) A  IS, abs-A. AWJ)  *S3T 

.  P(2ii)  abS*CST  ♦  p(2l  »A*4SASST 

L  •  P(221»(?0,*Hft-J0.ABAAl^,AB2-I,) 

M  .  P  (21)  A  (  70.aWH-IAO,*B6a«#»,*BA-20.*R?*  I  .  ) 

M  .  P  i2A)  A  l?S?.»RlU-630.AHi*ASA0,ABf.-?in,ABA*  J0,AW2-l  .  ) 

60  IND?  3  INOXA? 

OEt  3  OPL'F.^J.UlSB^bSA 
COSO  3  cos(ut:L) 

SINO  3  SI''J(i)tL) 

CUBS  3  C'lp  (  !NO?-l ) 

CUBITnOP-D  3  CUBSACOSO  -  CUR  I IN0«) ASIND 

inn  cuBdrit’?)  3  fiiBSASlNi)  ♦  CUM  ( IN02)  AC('SD 

BBITE  (A, 200)  B0,p 

200  FORMAT  (ACi^FBHt^E  PHASE  CORRECTION  APPLIEP  3ITh  NORMAL  UA  T  IONa 
A  A  RAiifuS  OF  a,(,is,a  /•  COEFFICIENTS  USEP  P(1)-P(2a)a, 
ri  A  are  CONSISTFNT  bITh  The  PmaSE  Out  TO  THh  nTh  TFMM  )4EINGa// 

C  20X.?am  pmI)))  3  2*Pi*P<Nl*/<N)// 

0  •  Z(N)  3  PF(N) A.lMAfAA ( TMETA) (  BF(n)  NORHALIZEO  TO  1.  AT  R3l,A// 

E  (  lX.S(,2t).S)  ) 
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UtTUON 

73  ^UH  »  rwf‘3«''jWT 
03  Hf*  fsltfJOH 

r  i»i*i 

t IMI«T  T-1 

':jH(ri«ii  a  sjoT(cuw(n)“*<'»ruK(ii'‘i)**2) 

^0  C'j-v(in  *  I'.o 

3nf!  FOMMftT (//nx,<*ru  OMASfc  HAS  HFtN  str  rn  ztuo  in  suhwoutinf  7eo>^*//) 

HET'JPN 

FnO 

»Eu» 

TEST  7FPNrKF  AUOITIo.^ 

SSTaPT  WwLaO.OnlOh*  NCALL*^*  OCAL^IS**  NnPTS»1?H. 

IsJsH,  r>i',«x*o.n.  noHy»0.o«  ampg£h»^0«o«  nGAuSS«o.n* 

Me?T»T».TWuF.  .  PL0TS«1.0. 

SfMTMCA.FAL'iF.  .  OHlPA0«0.n.  tENO 
TEST  7FPNIKE  AOniTION 
SCONTWL  lELOwsA.  SENO 

APEPTijwE  The  plane  TO  10.  CM. 

SAPT'JW  OOOTslT,.  OINaO.t  itNO 
4C0NTPL  TFIOiXsA,  send 

PLOT  ThF  initial  plane  aAVE 
4PL0T  SFnO 

initial  Plane  aave 
JCONTPL  fFLOws^a*  SENO 

APOLV  SPFCIEP  7tWNlKtb 

$7FPNS  POa«i,  P(A)a.l.  P(S)=.l.  P(b»=.l.  TEND 
SCONTPL  IFLOwart.  TENU 

PLOT  TwE  /FPNIKtO  PLANE  #AWE 
SPLCT  SfNn 

ZEhNIaEH  plane  wave 

•  iCONTWL  lEI  0ws73.  SEND 

REMOVE  SPtCIED  ZEROISES 

4ZERNS  P0=«.  UFMNG ( 3) a». I «  Pf PNG ( A ) a- . 1 ,  PFWNG ( 5 ) a- , I  ,  $ENU 
aCONTML  iFLOWaO,  HEnO 

PLOT  ThF  OFZEPNIaEU  PLANt  WAVE 
4PL0T  JFi^O 
OEZEHNlKEn  PLANE  wave 
SCONTPL  ICLCwag,  i^NO 
hFIUPN  to  XAIN 
JSTAPT  WWLa-l.,  4EN0 

•EvJP 

To  obtain  source  printouts  of  the  SOQ  code,  the  user  must  run  the  CDC 

update  program.  The  compile  file  may  be  used  as  a  source  listing  or  if  the 

user  so  desires  he  may  nm  the  Fortran  compiler  on  the  code  to  obtain  a 

compiled  version  or  listing  along  with  any  desired  Fortran  compiler  options 

supported  under  the  CDC  NOS/BE  system.  The  file  output  will  contain  the 

desired  listings.  The  following  job  setup  is  include  as  a  guide; 

.Job  Card 

Account  Card 

Attach,  OLDPL,  SOQ77128,  ID- 
Update,  F. 

FTN. 
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